Fix `dis` for empty arglists
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Fri, 10 Feb 2017 21:39:15 +0000 |
| parents |
a845f6820d65
|
| children |
9bcadce51853
|
| branches/tags |
(none) |
| files |
losh.lisp |
Changes
--- 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))