minor patch to class-for-type

This keeps case sensitive lisps happy in all permutations and has no  
consequences for insensitive lisps.

Index: asdf.lisp
===================================================================
RCS file: /cvsroot/cclan/asdf/asdf.lisp,v
retrieving revision 1.105
diff -u -w -u -r1.105 asdf.lisp
--- asdf.lisp   6 Feb 2007 17:15:58 -0000       1.105
+++ asdf.lisp   14 Feb 2007 15:14:10 -0000
@@ -967,7 +967,7 @@
(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)))

--
Gary Warren King, metabang.com
Cell: (413) 885 9127
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM





-------------------------------------------------------------------------
Take Surveys. Earn Cash. Influence the Future of IT
Join SourceForge.net's Techsay panel and you'll get the chance to share your
opinions on IT & business topics through brief surveys-and earn cash
http://www.techsay.com/default.php?page=join.php&p=sourceforge&CID=DEVDEV