Skip to content

Commit 5735dfd

Browse files
committed
Don't create the setup fasl cache directory so early.
Instead, create the cache directory as late as possible. This is one step toward making it easier to have a read-only quicklisp install directory.
1 parent 05afb23 commit 5735dfd

File tree

1 file changed

+4
-5
lines changed

1 file changed

+4
-5
lines changed

setup.lisp

Lines changed: 4 additions & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -82,9 +82,7 @@ already exist."
8282
"Try several methods to make sure that a sufficiently-new ASDF is
8383
loaded: first try (require 'asdf), then loading the ASDF FASL, then
8484
compiling asdf.lisp to a FASL and then loading it."
85-
(let* ((source (qmerge "asdf.lisp"))
86-
(fasl (asdf-fasl-pathname)))
87-
(ensure-directories-exist fasl)
85+
(let ((source (qmerge "asdf.lisp")))
8886
(labels ((asdf-symbol (name)
8987
(let ((asdf-package (find-package '#:asdf)))
9088
(when asdf-package
@@ -106,8 +104,9 @@ compiling asdf.lisp to a FASL and then loading it."
106104
(return t)))))
107105
(try)
108106
(try (require 'asdf))
109-
(try (load fasl :verbose nil))
110-
(try (load (compile-file source :verbose nil :output-file fasl)))
107+
(let ((fasl (asdf-fasl-pathname)))
108+
(try (load fasl :verbose nil))
109+
(try (load (compile-file source :verbose nil :output-file fasl))))
111110
(error "Could not load ASDF ~S or newer" *required-asdf-version*))))))
112111

113112
(ensure-asdf-loaded)

0 commit comments

Comments
 (0)