diff --git a/compiler/dump.lisp b/compiler/dump.lisp index 1bce8da4f0c94dd0e4623ae4c54bc6a32c8caffc..3e9f61eb92dbc5ae4c908b908a59fb61e6a3abb7 100644 --- a/compiler/dump.lisp +++ b/compiler/dump.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.21 1990/10/23 03:19:05 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.22 1990/10/24 01:28:48 wlott Exp $ ;;; ;;; This file contains stuff that knows about dumping FASL files. ;;; @@ -436,6 +436,7 @@ (declare (type unsigned-byte code-handle) (list fixups) (type fasl-file file)) (when fixups + (dump-push code-handle file) (dolist (info fixups) (let* ((kind (first info)) (fixup (second info)) @@ -446,7 +447,6 @@ (let ((*cold-load-dump* t)) (dump-object kind file)) (dump-fop 'lisp::fop-maybe-cold-load file) - (dump-push code-handle file) (ecase flavor (:assembly-routine (assert (symbolp name))