diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp index 9ad919c7345fe533c0670b6dde2d41391354e59c..a486581919beb24705273c164322976259359e77 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.2 1990/03/08 15:48:58 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/assembly/assemfile.lisp,v 1.3 1990/03/18 15:35:38 wlott Exp $ ;;; ;;; This file contains the extra code necessary to feed an entire file of ;;; assembly code to the assembler. @@ -36,7 +36,7 @@ (unwind-protect (progn (init-assembler) - (load name) + (load (merge-pathname name (make-pathname :type "lisp"))) (finish-assembly) (let ((handle (dump-assembler-routines *code-vector* *next-location* *assembler-routines*