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