Skip to content
Snippets Groups Projects
Commit 5e264d1f authored by wlott's avatar wlott
Browse files

Removed left over call to finish-assembly

parent 73e292fd
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.7 1990/04/24 02:55:49 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.8 1990/04/24 19:06:59 wlott Exp $
;;;
;;; This file contains the extra code necessary to feed an entire file of
;;; assembly code to the assembler.
......@@ -36,7 +36,6 @@
(let (*code-segment* *elsewhere*)
(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*)
(assemble (*code-segment* nil)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment