X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/b55c78560d60a17fb84428b187f9d65a1b375072..3a774b55edfea441c1715994924c2999e9202143:/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*))))