a26990c05739

Actually fix CCL arguments
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sun, 23 Dec 2018 23:36:35 -0500
parents 1dfdaf51ac28
children b0cb724b7831
branches/tags (none)
files src/main.lisp

Changes

diff -r 1dfdaf51ac28 -r a26990c05739 src/main.lisp
--- a/src/main.lisp	Sat Dec 22 14:44:46 2018 -0500
+++ b/src/main.lisp	Sun Dec 23 23:36:35 2018 -0500
@@ -62,8 +62,8 @@
   "
   #+sbcl sb-ext:*posix-argv*
   #+ccl (destructuring-bind (program-name &rest arguments)
-            ccl:*unprocessed-command-line-arguments*
-            (cons program-name (member "--" arguments :test #'string=)))
+            ccl:*command-line-argument-list*
+            (cons program-name (rest (member "--" arguments :test #'string=))))
   #-(or sbcl ccl) (error "ARGV is not supported on this implementation."))
 
 (defun exit (&optional (code 0))