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*)
(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))
......
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