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