# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1486762755 0
# Node ID 60d7a9c10969c402048c4ae2629f3ec9a7567e5f
# Parent  a845f6820d6541e36d2103c345b9a466c7e171c8
Fix `dis` for empty arglists

diff -r a845f6820d65 -r 60d7a9c10969 losh.lisp
--- a/losh.lisp	Thu Feb 09 13:19:30 2017 +0000
+++ b/losh.lisp	Fri Feb 10 21:39:15 2017 +0000
@@ -1826,7 +1826,7 @@
                       #-sbcl 'disassemble))
     (destructuring-bind (arglist &body body)
         (iterate (for b :first body :then (cdr b))
-                 (while (symbolp (car b)))
+                 (while (not (listp (car b))))
                  (finally (return b)))
       `(,%disassemble (compile nil '(lambda ,arglist
                                      (declare (optimize speed))