Skip to content
Snippets Groups Projects
Commit 8fd3c6dc authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix typo in 0c95742b that broke ASDF.

Also, reformat a function and use uiop implicitly.
parent 69738939
No related branches found
No related tags found
No related merge requests found
......@@ -199,7 +199,7 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms."))
(defmethod resolve-dependency-combination (component (combinator (eql :require)) arguments)
(unless (and (length=n-p arguments 1)
(typep (car argument) '(or string (and symbol (not null)))))
(typep (car arguments) '(or string (and symbol (not null)))))
(error (compatfmt "~@<Bad dependency ~S for ~S. ~S takes one argument, a string or non-null symbol~@:>")
(cons combinator arguments) component combinator))
;; :require must be prepared for some implementations providing modules using ASDF,
......@@ -230,9 +230,10 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms."))
(handler-bind
((style-warning #'muffle-warning)
(missing-component (constantly nil))
(uiop:fatal-condition #'(lambda (e)
(format *error-output* (compatfmt "~@<ASDF could not load ~(~A~) because ~A.~@:>~%")
name e))))
(fatal-condition
#'(lambda (e)
(format *error-output* (compatfmt "~@<ASDF could not load ~(~A~) because ~A.~@:>~%")
name e))))
(let ((*verbose-out* (make-broadcast-stream)))
(let ((system (find-system module nil)))
(when system
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment