From 4d382d1df73afa52940360b94f7151a9d525b833 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Wed, 7 Feb 1990 13:17:02 +0000
Subject: [PATCH] Changed LOAD to recognize "fasl" as well as "nfasl" file
 types.  The real reason is that it lets us load the miscops which currently
 still have "fasl" type, but this also has the nice side-effect of giving a
 better error if someone tries to load an old "fasl" file.

---
 code/load.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/load.lisp b/code/load.lisp
index 2144e68dd..5154c157f 100644
--- a/code/load.lisp
+++ b/code/load.lisp
@@ -398,7 +398,8 @@
 	       (tn (probe-file pn)))
 	  (cond
 	   (tn
-	    (if (string-equal (pathname-type tn) "nfasl")
+	    (if (or (string-equal (pathname-type tn) "nfasl")
+		    (string-equal (pathname-type tn) "fasl"))
 		(with-open-file (file tn
 				      :direction :input
 				      :element-type '(unsigned-byte 8))
-- 
GitLab