0.pre7.86.flaky7.27:

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

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index adb55af..8789353 100644 (file)
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -1373,7 +1373,8 @@
                     last-debug-fun))
          (if (null segments)
              (let ((offs (fun-insts-offset function)))
-               (make-code-segment code offs (- max-offset offs)))
+               (list 
+                (make-code-segment code offs (- max-offset offs))))
              (nreverse segments)))))))
 
 ;;; Return a list of the segments of memory containing machine code