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

Use string-downcase for :implementation-type

parent 3dbbb562

asdf.lisp

+1 −1
Changes for asdf.lisp: 1 added line, 1 removed line.
Original line number Diff line number Diff line
@@ -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)))