X-Git-Url: https://git.distorted.org.uk/~mdw/lisp/blobdiff_plain/3bb66aca507b7c9df6e90d9b7898a8b6569d640b..0eed4749891adf0a7be89e786b8968ee805a8d41:/sys-base.lisp diff --git a/sys-base.lisp b/sys-base.lisp index 370e80e..bef7ce9 100644 --- a/sys-base.lisp +++ b/sys-base.lisp @@ -53,7 +53,7 @@ #+sbcl sb-ext:*posix-argv* #+ecl (loop from i below (ext:argc) collect (ext:argv i)) #+clisp (loop with argv = (ext:argv) - for i from 7 below (length argv) + for i from 7 below (length argv) collect (aref argv i)) '("" "--" ""))) (setf *program-name* (pathname-name (car *command-line*))))