9f211ca82604

dolist returns nil
[view raw] [browse files]
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))))