hg.stevelosh.com > adopt

--- a/src/main.lisp	Fri Dec 21 21:26:47 2018 -0500
+++ b/src/main.lisp	Sat Dec 22 14:44:46 2018 -0500
@@ -61,7 +61,9 @@

   "
   #+sbcl sb-ext:*posix-argv*
-  #+ccl ccl:*unprocessed-command-line-arguments*
+  #+ccl (destructuring-bind (program-name &rest arguments)
+            ccl:*unprocessed-command-line-arguments*
+            (cons program-name (member "--" arguments :test #'string=)))
   #-(or sbcl ccl) (error "ARGV is not supported on this implementation."))

 (defun exit (&optional (code 0))
author	Steve Losh <steve@stevelosh.com>
date	Sat, 22 Dec 2018 14:44:46 -0500
parents	58b85ffbf146
children	a26990c05739
branches/tags	(none)
files	src/main.lisp