From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Mon, 21 May 2012 18:39:02 +0000 (+0300)
Subject: some nincompoop broke the build
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=77a1e282295a11dff7714bdb7ebce0bd786f6334;p=sbcl.git

some nincompoop broke the build

  *blush*
---

diff --git a/src/compiler/target-disassem.lisp b/src/compiler/target-disassem.lisp
index 96065f6..5f053c5 100644
--- 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))))
 
 ;;;; stuff to use debugging info to augment the disassembly