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
Loading
Loading
Loading
Loading
+5 −4
Original line number Diff line number Diff line
@@ -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,7 +230,8 @@ 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)
               (fatal-condition
		#'(lambda (e)
		    (format *error-output* (compatfmt "~@<ASDF could not load ~(~A~) because ~A.~@:>~%")
			    name e))))
            (let ((*verbose-out* (make-broadcast-stream)))