Commit c69ad702 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

On CMUCL, upcase module name before you require them.

parent 96ea9270
...@@ -198,7 +198,7 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms.")) ...@@ -198,7 +198,7 @@ the implementation's REQUIRE rather than by internal ASDF mechanisms."))
(let* ((module (or (required-module s) (coerce-name s))) (let* ((module (or (required-module s) (coerce-name s)))
(*modules-being-required* (cons module *modules-being-required*))) (*modules-being-required* (cons module *modules-being-required*)))
(assert (null (component-children s))) (assert (null (component-children s)))
(require module))) (require #-cmucl module #+cmucl (string-upcase module))))
(defmethod resolve-dependency-combination (component (combinator (eql :require)) arguments) (defmethod resolve-dependency-combination (component (combinator (eql :require)) arguments)
(unless (and (length=n-p arguments 1) (unless (and (length=n-p arguments 1)
......
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