X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/2ef055fe6ca5f97b0f3d57ad3675e4ac09210266..7aa55c1174f170016d970a3f5e86d5115f02611c:/src/optparse.lisp diff --git a/src/optparse.lisp b/src/optparse.lisp index 2234595..367fc50 100644 --- a/src/optparse.lisp +++ b/src/optparse.lisp @@ -83,7 +83,7 @@ (defun set-command-line-arguments () #+ecl (loop for i from 1 below (ext:argc) collect (ext:argv i)))) - (error "Unsupported Lisp.")))))) + (error "Unsupported Lisp")))))) *program-name* (pathname-name (car *command-line*))))