Fix for other impls (specifically CCL)

2014-09-06 10:15:40 +02:00 · 2014-09-06 10:15:40 +02:00 · 854221e354
commit 854221e354
parent b68fa13905
1 changed files with 8 additions and 2 deletions
--- a/binary.lisp
+++ b/binary.lisp
@ -25,5 +25,11 @@
              (asdf:component-version (asdf:find-system :LASS))
              (asdf:system-homepage (asdf:find-system :LASS)))))

-(defun cmd-wrapper (args)
-  (apply #'main (cdr args)))
+(defun cmd-wrapper (&optional args)
+  (let ((args (or args
+                  #+SBCL *posix-argv*  
+                  #+LISPWORKS system:*line-arguments-list*
+                  #+CMU extensions:*command-line-words*
+                  #+CCL ccl:*command-line-argument-list*
+                  NIL)))
+    (apply #'main (cdr args))))