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