# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1470578082 0
# Node ID 5dda89e955a330718cf3177bbbbfd9898e2ba2b8
# Parent  cb1e9c6237384ed7a889df049f388598c539a61e
Fix up `dis`

diff -r cb1e9c623738 -r 5dda89e955a3 losh.lisp
--- a/losh.lisp	Sun Aug 07 13:50:59 2016 +0000
+++ b/losh.lisp	Sun Aug 07 13:54:42 2016 +0000
@@ -461,7 +461,6 @@
   (format t (format nil "~~~D,'0B" size) (ldb (byte size 0) n))
   (values))
 
-
 (defmacro dis (arglist &body body)
   "Disassemble the code generated for a `lambda` with `arglist` and `body`.
 
@@ -469,12 +468,11 @@
   doing what you think it should be doing.
 
   "
-  `(->> '(lambda ,arglist
-          (declare (optimize speed))
-          ,@body)
-    (compile nil)
-    #+sbcl sb-disassem:disassemble-code-component
-    #-sbcl disassemble))
+  (let ((%disassemble #+sbcl 'sb-disassem:disassemble-code-component
+                      #-sbcl 'disassemble))
+    `(,%disassemble (compile nil '(lambda ,arglist
+                                   (declare (optimize speed))
+                                   ,@body)))))
 
 
 ;;;; File IO