From c538f181f28c621a8a648963c60bfdeb2ab40d47 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 24 Oct 1990 01:28:48 +0000 Subject: [PATCH] Fixed a bug at I introduced into dump-fixups. Ooops. --- compiler/dump.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/dump.lisp b/compiler/dump.lisp index 1bce8da4f..3e9f61eb9 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)) -- GitLab