X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftarget-disassem.lisp;h=878935359971dbfeda1cd6e9885a0ea210c97428;hb=56ce3857f7830670d55d2fe17246353dff2e71f7;hp=adb55af3f4594a19c04a00605ca42913fbe33087;hpb=5277a0cbf1a72243cad6808883a4847acefc8e6b;p=sbcl.git

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index adb55af..8789353 100644
--- 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