Hack CCL argv to be slightly less wrong
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 |
Changes
--- 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))