X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftarget-disassem.lisp;h=bf11bb89233f7c9c1d68a80e303e7483dac78fdd;hb=204f2fa9771ad9e55718dc76205afec7d11b3011;hp=1d105dbd364dc32072089dc4df01959eafa683c2;hpb=39ca94ec421224c78cb01f7d2d7b49321c66a2d4;p=sbcl.git

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index 1d105db..bf11bb8 100644
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -1599,11 +1599,11 @@
   (let ((fun (compiled-function-or-lose object)))
     (if (typep fun 'sb!kernel:byte-function)
 	(sb!c:disassem-byte-fun fun)
-	;; we can't detect closures, so be careful
+	;; We can't detect closures, so be careful.
 	(disassemble-function (fun-self fun)
 			      :stream stream
 			      :use-labels use-labels)))
-  (values)))
+  nil))
 
 (defun disassemble-memory (address
 			   length