Skip to content
Snippets Groups Projects
Commit 564cf363 authored by wlott's avatar wlott
Browse files

Added ``fasl-dump-cold-load-form'' to assemble-file so that symbols get

interened in the corrent package.
parent 891ad8e1
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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 ;;; This file contains the extra code necessary to feed an entire file of
;;; assembly code to the assembler. ;;; assembly code to the assembler.
...@@ -38,6 +38,8 @@ ...@@ -38,6 +38,8 @@
(init-assembler) (init-assembler)
(load (merge-pathnames name (make-pathname :type "lisp"))) (load (merge-pathnames name (make-pathname :type "lisp")))
(finish-assembly) (finish-assembly)
(fasl-dump-cold-load-form `(in-package ,(package-name *package*))
*lap-output-file*)
(let ((handle (dump-assembler-routines *code-vector* *next-location* (let ((handle (dump-assembler-routines *code-vector* *next-location*
*assembler-routines* *assembler-routines*
*lap-output-file*))) *lap-output-file*)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment