From 2876f57f2b45d8b72c27516acd513771c5732e8a Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 18 Mar 1990 15:35:38 +0000
Subject: [PATCH] Tack on the .lisp extension when assembling files to keep
 from loading the .fasl which has the macros expanded in the wrong manner.

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

diff --git a/assembly/assemfile.lisp b/assembly/assemfile.lisp
index 9ad919c73..a48658191 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*
-- 
GitLab