From 36d471e4b3f476824832746acdc385774134d29c Mon Sep 17 00:00:00 2001 From: "mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f" Date: Wed, 17 Feb 2010 14:14:43 +0000 Subject: [PATCH] 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.. --- src/org/armedbear/lisp/compile-file.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/org/armedbear/lisp/compile-file.lisp b/src/org/armedbear/lisp/compile-file.lisp index 39a0a72f..c233a240 100644 --- a/src/org/armedbear/lisp/compile-file.lisp +++ b/src/org/armedbear/lisp/compile-file.lisp @@ -557,7 +557,8 @@ interpreted toplevel form, non-NIL if it is 'simple enough'." (%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)) -- GitLab