From 77a1e282295a11dff7714bdb7ebce0bd786f6334 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Mon, 21 May 2012 21:39:02 +0300 Subject: [PATCH] some nincompoop broke the build *blush* --- src/compiler/target-disassem.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 1.7.10.4