X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-load.lisp;h=55a585d7b3f6017a9e43d3e8f032c7ccede85a3e;hb=0223f43d5f199914ebceff12b6f4c60448369edd;hp=184a1ef8c97bdd734f90abb6b6c39b02e33d9ac3;hpb=5f1a09bea4ee8e116e4ecd91cc7044310c9d22d9;p=sbcl.git

diff --git a/src/code/target-load.lisp b/src/code/target-load.lisp
index 184a1ef..55a585d 100644
--- a/src/code/target-load.lisp
+++ b/src/code/target-load.lisp
@@ -139,7 +139,7 @@
           (return-from load nil))
         (let* ((real (probe-file stream))
                (should-be-fasl-p
-                (and real (string= (pathname-type real) *fasl-file-type*))))
+                (and real (string-equal (pathname-type real) *fasl-file-type*))))
           ;; Don't allow empty .fasls, and assume other empty files
           ;; are source files.
           (when (and (or should-be-fasl-p (not (eql 0 (file-length stream))))