Commit 36d471e4 authored by mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f's avatar mevenson@1c010e3e-69d0-11dd-93a8-456734b0d56f
Browse files

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..
parent c122699f
......@@ -557,7 +557,8 @@ interpreted toplevel form, non-NIL if it is 'simple enough'."
(%stream-terpri out)
(dump-form `(dotimes (,count-sym ,*class-number*)
(%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))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment