on using system-registered-p where it can be used.

The attached diff (which I just committed) replaces calls to gethash  
with calls to system-registered-p


Index: asdf.lisp
===================================================================
RCS file: /cvsroot/cclan/asdf/asdf.lisp,v
retrieving revision 1.123
diff -u -w -r1.123 asdf.lisp
--- asdf.lisp	5 Jul 2008 02:57:20 -0000	1.123
+++ asdf.lisp	4 Sep 2008 12:55:13 -0000
@@ -375,7 +375,7 @@
      (or
       (some (lambda (x) (funcall x system-name))
  	   *system-definition-search-functions*)
-     (let ((system-pair (gethash system-name *defined-systems*)))
+     (let ((system-pair (system-registered-p system-name)))
         (and system-pair
  	    (system-source-file (cdr system-pair)))))))

@@ -407,7 +407,7 @@

  (defun find-system (name &optional (error-p t))
    (let* ((name (coerce-name name))
-         (in-memory (gethash name *defined-systems*))
+         (in-memory (system-registered-p name))
           (on-disk (system-definition-pathname name)))
      (when (and on-disk
                 (or (not in-memory)
@@ -424,7 +424,7 @@
                  *package*)
                 (load on-disk))
            (delete-package package))))
-    (let ((in-memory (gethash name *defined-systems*)))
+    (let ((in-memory (system-registered-p name)))
        (if in-memory
            (progn (if on-disk (setf (car in-memory) (file-write-date  
on-disk)))
                   (cdr in-memory))
@@ -438,6 +438,7 @@
  (defun system-registered-p (name)
    (gethash (coerce-name name) *defined-systems*))

+
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;; finding components


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





-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/