diff --git a/src/code/commandline.lisp b/src/code/commandline.lisp index be67ddcd718d3a6da468d234898a81e7145c669b..3c97fe99dd7d076e710e31cefb3f66a39fb4aad9 100644 --- a/src/code/commandline.lisp +++ b/src/code/commandline.lisp @@ -136,7 +136,7 @@ (setf str nil)) (return nil)) (push str word-list)) - (setq str (pop cmd-strings))))))))) + (setq str (pop cmd-strings)))))))) (defun get-command-line-switch (sname) "Accepts the name of a switch as a string and returns the value of