X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug-dump.lisp;h=9e3630a589d89e5193acbba380ee00f42d19f4eb;hb=15d6e7c9a2c3234f95dfe278046fa2fee1b0c007;hp=70b9c183b5c6bcd735a08e592fa62a1bbf2369b6;hpb=6ffb09605de7f990332aee146d8f69ba4cc907c9;p=sbcl.git

diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp
index 70b9c18..9e3630a 100644
--- a/src/compiler/debug-dump.lisp
+++ b/src/compiler/debug-dump.lisp
@@ -533,10 +533,11 @@
 		 (compute-args fun var-locs))))
 
     (if (>= level 2)
-      (multiple-value-bind (blocks tlf-num) (compute-debug-blocks fun var-locs)
-	(setf (compiled-debug-fun-tlf-number dfun) tlf-num)
-	(setf (compiled-debug-fun-blocks dfun) blocks))
-      (setf (compiled-debug-fun-tlf-number dfun) (find-tlf-number fun)))
+	(multiple-value-bind (blocks tlf-num)
+	    (compute-debug-blocks fun var-locs)
+	  (setf (compiled-debug-fun-tlf-number dfun) tlf-num)
+	  (setf (compiled-debug-fun-blocks dfun) blocks))
+	(setf (compiled-debug-fun-tlf-number dfun) (find-tlf-number fun)))
 
     (if (xep-p fun)
 	(setf (compiled-debug-fun-returns dfun) :standard)