diff --git a/code/load.lisp b/code/load.lisp index 2144e68dde862b0ac9db5b940dbd83ce5d1f0aad..5154c157f8829e78903f1af311a44604bd0508ee 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))