Raymond Toy pushed to branch master at cmucl / cmucl

Commits:

1 changed file:

Changes:

  • src/code/commandline.lisp
    ... ... @@ -136,7 +136,7 @@
    136 136
     		  (setf str nil))
    
    137 137
     		(return nil))
    
    138 138
     	      (push str word-list))
    
    139
    -	    (setq str (pop cmd-strings)))))))))
    
    139
    +	    (setq str (pop cmd-strings))))))))
    
    140 140
     
    
    141 141
     (defun get-command-line-switch (sname)
    
    142 142
       "Accepts the name of a switch as a string and returns the value of