# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1542863546 18000
# Node ID 9f211ca82604a2afcaf1f710b76d1166dd82ac3b
# Parent  152830fa3f854f60a46ce00b1843e8356fa7bf29
dolist returns nil

diff -r 152830fa3f85 -r 9f211ca82604 src/main.lisp
--- 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))))