some nincompoop broke the build

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

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index 96065f6..5f053c5 100644 (file)
--- a/src/compiler/target-disassem.lisp
+++ b/src/compiler/target-disassem.lisp
@@ -1007,7 +1007,7 @@
                 (sb!di:code-location-toplevel-form-offset loc))
           (setf (sfcache-last-form-retrieved cache)
                 (sb!di:code-location-form-number loc))
-          (setf (sfcache-last-location-retrieved cache)))
+          (setf (sfcache-last-location-retrieved cache) loc))
         (values form t))))
 \f
 ;;;; stuff to use debugging info to augment the disassembly