Skip to content
Snippets Groups Projects
Commit 01bba0a8 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.010.3: allow component classes to be named by keywords. (Thanks to Stelian Ionescu)

parent b6cce147
No related branches found
No related tags found
No related merge requests found
...@@ -44,7 +44,7 @@ website: ...@@ -44,7 +44,7 @@ website:
make -C doc website make -C doc website
clean_dirs = $(sourceDirectory) 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 clean: FORCE
@for dir in $(clean_dirs); do \ @for dir in $(clean_dirs); do \
......
...@@ -73,7 +73,7 @@ ...@@ -73,7 +73,7 @@
(eval-when (:load-toplevel :compile-toplevel :execute) (eval-when (:load-toplevel :compile-toplevel :execute)
(defvar *asdf-version* nil) (defvar *asdf-version* nil)
(defvar *upgraded-p* 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-asdf (fboundp 'find-system))
(existing-version *asdf-version*) (existing-version *asdf-version*)
(already-there (equal asdf-version existing-version))) (already-there (equal asdf-version existing-version)))
...@@ -2201,7 +2201,7 @@ details." ...@@ -2201,7 +2201,7 @@ details."
(defun* class-for-type (parent type) (defun* class-for-type (parent type)
(or (loop :for symbol :in (list (or (loop :for symbol :in (list
(unless (keywordp type) type) type
(find-symbol (symbol-name type) *package*) (find-symbol (symbol-name type) *package*)
(find-symbol (symbol-name type) :asdf)) (find-symbol (symbol-name type) :asdf))
:for class = (and symbol (find-class symbol nil)) :for class = (and symbol (find-class symbol nil))
...@@ -3548,7 +3548,7 @@ with a different configuration, so the configuration would be re-read then." ...@@ -3548,7 +3548,7 @@ with a different configuration, so the configuration would be re-read then."
(clear-output-translations)) (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) (defun* module-provide-asdf (name)
(handler-bind (handler-bind
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment