From 564cf3639f4afc7648f48a9f4d1a8d85b19d51c2 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Mon, 19 Mar 1990 17:17:44 +0000
Subject: [PATCH] Added ``fasl-dump-cold-load-form'' to assemble-file so that
 symbols get interened in the corrent package.

---
 assembly/assemfile.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index 99915f4e5..7b9d80c4c 100644
--- a/assembly/assemfile.lisp
+++ b/assembly/assemfile.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.4 1990/03/19 00:07:50 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.5 1990/03/19 17:17:44 wlott Exp $
 ;;;
 ;;; This file contains the extra code necessary to feed an entire file of
 ;;; assembly code to the assembler.
@@ -38,6 +38,8 @@
 	  (init-assembler)
 	  (load (merge-pathnames name (make-pathname :type "lisp")))
 	  (finish-assembly)
+	  (fasl-dump-cold-load-form `(in-package ,(package-name *package*))
+				    *lap-output-file*)
 	  (let ((handle (dump-assembler-routines *code-vector* *next-location*
 						 *assembler-routines*
 						 *lap-output-file*)))
-- 
GitLab