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