From 8732065f961336cc972813fe2d0a19d0fd70b0e9 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 23 Oct 1990 03:19:05 +0000
Subject: [PATCH] Added normal-load/maybe-cold-load magic around the dumping of
 the name of assembly routines.

---
 compiler/dump.lisp | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index 04d6119f9..1bce8da4f 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.20 1990/10/23 02:38:51 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.21 1990/10/23 03:19:05 wlott Exp $
 ;;;
 ;;;    This file contains stuff that knows about dumping FASL files.
 ;;;
@@ -416,7 +416,10 @@
   (quick-dump-number length 4 file)
   (let ((fixups (emit-code-vector (fasl-file-stream file) code-segment)))
     (dolist (routine routines)
-      (dump-object (car routine) file)
+      (dump-fop 'lisp::fop-normal-load file)
+      (let ((*cold-load-dump* t))
+	(dump-object (car routine) file))
+      (dump-fop 'lisp::fop-maybe-cold-load file)
       (dump-fop 'lisp::fop-assembler-routine file)
       (quick-dump-number (label-position (cdr routine)) 4 file))
     (let ((handle (dump-pop file)))
-- 
GitLab