X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/1c1ea17d710f2e1d40fc1e48a354195303fd7d4f..01778b39c53316dda3f757c49276d034039ee9cb:/src/optparse.lisp diff --git a/src/optparse.lisp b/src/optparse.lisp index 16b5b7b..6460c54 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*))))