Commit 4bbe2cad authored by pfdietz's avatar pfdietz
Browse files

Make compile-and-load merge against *load-pathname* if it is being called...

Make compile-and-load merge against *load-pathname* if it is being called while loading another file.
parent fa50f612
......@@ -23,6 +23,9 @@
"Find the file indicated by PATHSPEC, compiling it first if
the associated compiled file is out of date."
(let* ((pathname (pathname pathspec))
(pathname (if *load-pathname*
(merge-pathnames pathname *load-pathname*)
pathname))
(former-data (assoc pathname *compiled-and-loaded-files*
:test #'equalp))
(compile-pathname (compile-file-pathname pathname))
......
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