[Mit-cadr-cvs] r349 - trunk/lisp/cold

[ggilley at common-lisp.net]

Author: ggilley
Date: Fri Nov 23 09:45:20 2012
New Revision: 349

Log:
downcase file names for mini

Modified:
   trunk/lisp/cold/coldut.lisp

Modified: trunk/lisp/cold/coldut.lisp
==============================================================================
--- trunk/lisp/cold/coldut.lisp	Fri Nov 23 09:35:18 2012	(r348)
+++ trunk/lisp/cold/coldut.lisp	Fri Nov 23 09:45:20 2012	(r349)
@@ -1271,8 +1271,8 @@
       (make-q-list 'sym:init-list-area
 		   (loop for (file pack) in (symeval sym)
 			 as pathname = (fs:merge-pathname-defaults file)
-			 collect (list (funcall (funcall pathname ':translated-pathname)
-					     ':string-for-mini)
+			 collect (list (string-downcase (funcall (funcall pathname ':translated-pathname)
+					     ':string-for-mini))
 				       pack
 				       (equal (funcall pathname ':type) "QFASL"))))))
 #|  ;MACRO, SETQ, etc. are in QFCTNS, which is now in the cold load.