diff --git a/compiler/debug-dump.lisp b/compiler/debug-dump.lisp index d55dba6a7e6ce0e6a1195ad70544d81bc2731bab..d16654b3b38ef290b6f665e047ab527c531a29e5 100644 --- a/compiler/debug-dump.lisp +++ b/compiler/debug-dump.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.22 1991/04/04 14:38:49 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/debug-dump.lisp,v 1.23 1991/04/08 12:44:34 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -761,12 +761,12 @@ (clrhash var-locs) (dfuns (cons (label-position (block-label (node-block (lambda-bind fun)))) - (compute-1-debug-function fun var-locs))))) - - (let ((sorted (sort (dfuns) #'< :key #'car))) - (setf (compiled-debug-info-function-map res) - (if (every #'debug-function-minimal-p sorted) - (compute-minimal-debug-functions sorted) - (compute-debug-function-map sorted))))) + (compute-1-debug-function fun var-locs)))) + + (let ((sorted (sort (dfuns) #'< :key #'car))) + (setf (compiled-debug-info-function-map res) + (if (every #'debug-function-minimal-p sorted) + (compute-minimal-debug-functions sorted) + (compute-debug-function-map sorted)))))) res))