[armedbear-cvs] r14065 - trunk/abcl/src/org/armedbear/lisp

[mevenson at common-lisp.net]

Author: mevenson
Date: Tue Aug  7 23:41:52 2012
New Revision: 14065

Log:
abcl-contrib: avoid duplicate entries in ASF:*CENTRAL-REGISTRY*.

Modified:
   trunk/abcl/src/org/armedbear/lisp/abcl-contrib.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/abcl-contrib.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/abcl-contrib.lisp	Tue Aug  7 09:50:15 2012	(r14064)
+++ trunk/abcl/src/org/armedbear/lisp/abcl-contrib.lisp	Tue Aug  7 23:41:52 2012	(r14065)
@@ -45,14 +45,13 @@
                                                   :directory '(:absolute :wild)
                                                   :name :wild
                                                   :type "asd")))
-                (let ((asdf-directory 
-                       (make-pathname :defaults asdf-file :name nil :type nil)))
-                  (format verbose "Adding ~A to ASDF.~%" asdf-directory)
-                  (push asdf-directory asdf:*central-registry*)))
+                (let ((asdf-directory (make-pathname :defaults asdf-file :name nil :type nil)))
+                  (unless (find asdf-directory asdf:*central-registry* :test #'equal)
+                    (push asdf-directory asdf:*central-registry*)
+                    (format verbose "~&Added ~A to ASDF.~&" asdf-directory))))
               *abcl-contrib*)
         (format verbose "Failed to find abcl-contrib at '~A'." abcl-contrib))))))
 
-
 (when (find-contrib :verbose t)
   (provide :abcl-contrib))