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'." ...@@ -557,7 +557,8 @@ interpreted toplevel form, non-NIL if it is 'simple enough'."
(%stream-terpri out) (%stream-terpri out)
(dump-form `(dotimes (,count-sym ,*class-number*) (dump-form `(dotimes (,count-sym ,*class-number*)
(function-preload (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) (1+ ,count-sym)))) out)
(%stream-terpri 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