[prev in list] [next in list] [prev in thread] [next in thread] 

List:       sbcl-commits
Subject:    [Sbcl-commits] CVS: sbcl/src/code target-load.lisp,1.48,1.49
From:       "Nikodemus Siivola" <demoss () users ! sourceforge ! net>
Date:       2009-12-18 9:42:25
Message-ID: E1NLZLt-0008Li-Gk () sfp-cvsdas-3 ! v30 ! ch3 ! sourceforge ! com
[Download RAW message or body]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv32080/src/code

Modified Files:
	target-load.lisp 
Log Message:
1.0.33.24: both .FASL and .fasl force fasl-loading

 Bug with case-insensitive filesystems cause other implementations
 .FASL files to be loaded as source reported by Willem Broekema.


Index: target-load.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-load.lisp,v
retrieving revision 1.48
retrieving revision 1.49
diff -u -d -r1.48 -r1.49
--- target-load.lisp	24 Jun 2009 15:14:44 -0000	1.48
+++ target-load.lisp	18 Dec 2009 09:42:23 -0000	1.49
@@ -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))))


------------------------------------------------------------------------------
This SF.Net email is sponsored by the Verizon Developer Community
Take advantage of Verizon's best-in-class app development support
A streamlined, 14 day to market process makes app distribution fast and easy
Join now and get one step closer to millions of Verizon customers
http://p.sf.net/sfu/verizon-dev2dev 
_______________________________________________
Sbcl-commits mailing list
Sbcl-commits@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/sbcl-commits
[prev in list] [next in list] [prev in thread] [next in thread]