X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fdebug-dump.lisp;h=fdfdd67b97ab39f2e94577de02aaa2faae5c6f5a;hb=8b89077f2d8c3aec140ded650d95d7869f6a7f28;hp=b12a7437a2ad6c32b04bcc3b477bfe5075ea8573;hpb=b4282a9e700b7793a1efd97dfb37fc2fc39d24ad;p=sbcl.git

diff --git a/src/compiler/debug-dump.lisp b/src/compiler/debug-dump.lisp
index b12a743..fdfdd67 100644
--- a/src/compiler/debug-dump.lisp
+++ b/src/compiler/debug-dump.lisp
@@ -545,20 +545,21 @@
 ;;; called after assembly so that source map information is available.
 (defun debug-info-for-component (component)
   (declare (type component component))
-  (collect ((dfuns))
-    (let ((var-locs (make-hash-table :test 'eq))
-	  (*byte-buffer* (make-array 10
-				     :element-type '(unsigned-byte 8)
-				     :fill-pointer 0
-				     :adjustable t)))
-      (dolist (fun (component-lambdas component))
-	(clrhash var-locs)
-	(dfuns (cons (label-position (block-label (lambda-block fun)))
-		     (compute-1-debug-fun fun var-locs))))
-      (let* ((sorted (sort (dfuns) #'< :key #'car))
-	     (fun-map (compute-debug-fun-map sorted)))
-	(make-compiled-debug-info :name (component-name component)
-				  :fun-map fun-map)))))
+  (let ((dfuns nil)
+	(var-locs (make-hash-table :test 'eq))
+	(*byte-buffer* (make-array 10
+				   :element-type '(unsigned-byte 8)
+				   :fill-pointer 0
+				   :adjustable t)))
+    (dolist (lambda (component-lambdas component))
+      (clrhash var-locs)
+      (push (cons (label-position (block-label (lambda-block lambda)))
+		  (compute-1-debug-fun lambda var-locs))
+	    dfuns))
+    (let* ((sorted (sort dfuns #'< :key #'car))
+	   (fun-map (compute-debug-fun-map sorted)))
+      (make-compiled-debug-info :name (component-name component)
+				:fun-map fun-map))))
 
 ;;; Write BITS out to BYTE-BUFFER in backend byte order. The length of
 ;;; BITS must be evenly divisible by eight.