Changeset 14065

Timestamp:

08/08/12 06:41:52 (9 years ago)

Author:

Mark Evenson

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/abcl-contrib.lisp (modified) (1 diff)

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

@@ -46 +46 @@
                                                   :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)