[armedbear-cvs] r12484 - trunk/abcl/src/org/armedbear/lisp

[Mark Evenson]

Author: mevenson
Date: Wed Feb 17 09:14:43 2010
New Revision: 12484

Log:
Fix bug in loading fasls with "." in NAME of pathname.

Perform the same transformation in the load portion init FASL as
COMPUTE-CLASSFILE-NAME did in creating the files..



Modified:
   trunk/abcl/src/org/armedbear/lisp/compile-file.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compile-file.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compile-file.lisp	Wed Feb 17 09:14:43 2010
@@ -557,7 +557,8 @@
               (%stream-terpri out)
               (dump-form `(dotimes (,count-sym ,*class-number*)
                             (function-preload
-                             (%format nil "~A-~D.cls" ,(pathname-name output-file)
+                             (%format nil "~A-~D.cls" 
+                                      ,(substitute #\_ #\. (pathname-name output-file))
                                       (1+ ,count-sym)))) out)
               (%stream-terpri out))