File tree Expand file tree Collapse file tree 1 file changed +4
-5
lines changed Expand file tree Collapse file tree 1 file changed +4
-5
lines changed Original file line number Diff line number Diff line change @@ -82,9 +82,7 @@ already exist."
82
82
" Try several methods to make sure that a sufficiently-new ASDF is
83
83
loaded: first try (require 'asdf), then loading the ASDF FASL, then
84
84
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" )))
88
86
(labels ((asdf-symbol (name)
89
87
(let ((asdf-package (find-package ' #:asdf)))
90
88
(when asdf-package
@@ -106,8 +104,9 @@ compiling asdf.lisp to a FASL and then loading it."
106
104
(return t )))))
107
105
(try)
108
106
(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))))
111
110
(error " Could not load ASDF ~S or newer" *required-asdf-version* ))))))
112
111
113
112
(ensure-asdf-loaded)
You can’t perform that action at this time.
0 commit comments