From 01bba0a82e806240cf4193ff2bed520bdbed2528 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Fri, 5 Nov 2010 18:15:31 -0400
Subject: [PATCH] 2.010.3: allow component classes to be named by keywords.
 (Thanks to Stelian Ionescu)

---
 GNUmakefile | 2 +-
 asdf.lisp   | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/GNUmakefile b/GNUmakefile
index 02c3a894..e466c66c 100644
--- a/GNUmakefile
+++ b/GNUmakefile
@@ -44,7 +44,7 @@ website:
 	make -C doc website
 
 clean_dirs = $(sourceDirectory)
-clean_extensions = fasl dfsl cfsl fasl fas lib dx32fsl lx64fsl lx32fsl o bak
+clean_extensions = fasl dfsl cfsl fasl fas lib dx32fsl lx64fsl lx32fsl o bak x86f
 
 clean: FORCE
 	@for dir in $(clean_dirs); do \
diff --git a/asdf.lisp b/asdf.lisp
index 482188dd..fddbfe97 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -73,7 +73,7 @@
 (eval-when (:load-toplevel :compile-toplevel :execute)
   (defvar *asdf-version* nil)
   (defvar *upgraded-p* nil)
-  (let* ((asdf-version "2.010.2") ;; bump this version when you modify this file.
+  (let* ((asdf-version "2.010.3") ;; bump this version when you modify this file.
          (existing-asdf (fboundp 'find-system))
          (existing-version *asdf-version*)
          (already-there (equal asdf-version existing-version)))
@@ -2201,7 +2201,7 @@ details."
 
 (defun* class-for-type (parent type)
   (or (loop :for symbol :in (list
-                             (unless (keywordp type) type)
+                             type
                              (find-symbol (symbol-name type) *package*)
                              (find-symbol (symbol-name type) :asdf))
         :for class = (and symbol (find-class symbol nil))
@@ -3548,7 +3548,7 @@ with a different configuration, so the configuration would be re-read then."
   (clear-output-translations))
 
 ;;;; -----------------------------------------------------------------
-;;;; Hook into REQUIRE for ABCL, ClozureCL, CMUCL, ECL and SBCL
+;;;; Hook into REQUIRE for ABCL, CLISP, ClozureCL, CMUCL, ECL and SBCL
 ;;;;
 (defun* module-provide-asdf (name)
   (handler-bind
-- 
GitLab