9f211ca82604
dolist returns nil
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Thu, 22 Nov 2018 00:12:26 -0500 |
| parents | 152830fa3f85 |
| children | 95aa057ce3a4 |
| branches/tags | (none) |
| files | src/main.lisp |
Changes
--- a/src/main.lisp Thu Nov 22 00:03:53 2018 -0500 +++ b/src/main.lisp Thu Nov 22 00:12:26 2018 -0500 @@ -169,15 +169,12 @@ (if (null arguments) (values (reverse toplevel) results) (destructuring-bind (arg . remaining) arguments - (recur (cond - ((terminatorp arg) - (dolist (r remaining) (push r toplevel)) - nil) - ((shortp arg) - (parse-short interface results arg remaining)) - ((longp arg) - (parse-long interface results arg remaining)) - (t (push arg toplevel) remaining))))))) + (recur + (cond + ((terminatorp arg) (dolist (r remaining) (push r toplevel))) + ((shortp arg) (parse-short interface results arg remaining)) + ((longp arg) (parse-long interface results arg remaining)) + (t (push arg toplevel) remaining))))))) (recur arguments))))