From 412ebe190c99d2b0baea6f1255d791299cbfa77e Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Thu, 11 Mar 2010 11:29:26 -0500 Subject: [PATCH] Use string-downcase for :implementation-type --- asdf.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/asdf.lisp b/asdf.lisp index 6bf047e4f..a873817c0 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -2319,7 +2319,7 @@ with a different configuration, so the configuration would be re-read then." (relativize-pathname-directory (truenamize *default-pathname-defaults*))) ((eql :implementation) (implementation-identifier)) - ((eql :implementation-type) (princ-to-string (implementation-type))) + ((eql :implementation-type) (string-downcase (implementation-type))) ((eql :uid) (princ-to-string (get-uid))))) (d (if (pathnamep x) r (ensure-directory-pathname r))) (s (if (and wildenp (not (pathnamep x))) -- GitLab