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.

Author: ynadji

deliver.lisp

@@ -0,0 +1,20 @@
+(in-package cl-user)
+
+(load-all-patches)
+
+(require "asdf")
+
+(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname))))
+  (when (probe-file quicklisp-init)
+    (load quicklisp-init)))
+
+(set-default-character-element-type 'character)
+
+(asdf:load-system :cleek)
+
+(let* ((version (asdf:system-version (asdf:find-system :cleek)))
+       (src-dir (asdf:system-source-directory :cleek)))
+  (deliver #'cleek:main
+           "cleek.lw"
+           0
+           :editor-style :emacs))

main.lisp

@@ -16,7 +16,7 @@
 (defvar *common-filters-and-mutators* nil)
 (defun init-common-filters-and-mutators ()
   (when (probe-file *common-filters-and-mutators-path*)
-    (load *common-filters-and-mutators-path*)))
+    (load *common-filters-and-mutators-path* :verbose nil)))
 
 (defun foo (log)
   ;; # assembly generated
@@ -306,4 +306,5 @@ Primarily used anonymize IPs and hash fields with ANONIP and HASH."
 
 (defun main ()
   (let ((app (cat/command)))
-    (clingon:run app)))
+    ;; NB: LispWorks seems to require manually passing in the args to work.
+    (clingon:run app (cdr (uiop:raw-command-line-arguments)))))