Skip to content

Commit 39e0c84

Browse files
committed
lispworks support
add a delivery.lisp and minor changes to make it work on lispworks. the good: size is <1% of the SBCL version! the bad: it's about 2.4x slower. unlikely to be used/useful, but it was nice to learn how to deliver a CLI app.
1 parent bf6adf4 commit 39e0c84

File tree

2 files changed

+23
-2
lines changed

2 files changed

+23
-2
lines changed

deliver.lisp

Lines changed: 20 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,20 @@
1+
(in-package cl-user)
2+
3+
(load-all-patches)
4+
5+
(require "asdf")
6+
7+
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
8+
(when (probe-file quicklisp-init)
9+
(load quicklisp-init)))
10+
11+
(set-default-character-element-type 'character)
12+
13+
(asdf:load-system :cleek)
14+
15+
(let* ((version (asdf:system-version (asdf:find-system :cleek)))
16+
(src-dir (asdf:system-source-directory :cleek)))
17+
(deliver #'cleek:main
18+
"cleek.lw"
19+
0
20+
:editor-style :emacs))

main.lisp

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -16,7 +16,7 @@
1616
(defvar *common-filters-and-mutators* nil)
1717
(defun init-common-filters-and-mutators ()
1818
(when (probe-file *common-filters-and-mutators-path*)
19-
(load *common-filters-and-mutators-path*)))
19+
(load *common-filters-and-mutators-path* :verbose nil)))
2020

2121
(defun foo (log)
2222
;; # assembly generated
@@ -306,4 +306,5 @@ Primarily used anonymize IPs and hash fields with ANONIP and HASH."
306306

307307
(defun main ()
308308
(let ((app (cat/command)))
309-
(clingon:run app)))
309+
;; NB: LispWorks seems to require manually passing in the args to work.
310+
(clingon:run app (cdr (uiop:raw-command-line-arguments)))))

0 commit comments

Comments
 (0)