Skip to content
Snippets Groups Projects
Commit f0a5ff84 authored by Gary King's avatar Gary King
Browse files

Minor patch in class-for-type that evaluates only *package* at read time

rather than (package-name *package*); this keeps case sensitive Lisps happy
all the time and keeps case insensitive lisps happily insensitive.
parent 712cebc4
No related branches found
No related tags found
No related merge requests found
;;; This is asdf: Another System Definition Facility. $Revision: 1.105 $
;;; This is asdf: Another System Definition Facility. $Revision: 1.106 $
;;;
;;; Feedback, bug reports, and patches are all welcome: please mail to
;;; <cclan-list@lists.sf.net>. But note first that the canonical
......@@ -112,7 +112,7 @@
(in-package #:asdf)
(defvar *asdf-revision* (let* ((v "$Revision: 1.105 $")
(defvar *asdf-revision* (let* ((v "$Revision: 1.106 $")
(colon (or (position #\: v) -1))
(dot (position #\. v)))
(and v colon dot
......@@ -967,7 +967,7 @@ system."))
(defun class-for-type (parent type)
(let* ((extra-symbols (list (find-symbol (symbol-name type) *package*)
(find-symbol (symbol-name type)
#.(package-name *package*))))
(package-name #.*package*))))
(class (dolist (symbol (if (keywordp type)
extra-symbols
(cons type extra-symbols)))
......
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