0.6.11.45:

[sbcl.git] / src / compiler / target-disassem.lisp

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index 1d105db..bf11bb8 100644 (file)
--- 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