Changeset 14065


Ignore:
Timestamp:
08/08/12 06:41:52 (8 years ago)
Author:
Mark Evenson
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/abcl-contrib.lisp

    r13730 r14065  
    4646                                                  :name :wild
    4747                                                  :type "asd")))
    48                 (let ((asdf-directory
    49                        (make-pathname :defaults asdf-file :name nil :type nil)))
    50                   (format verbose "Adding ~A to ASDF.~%" asdf-directory)
    51                   (push asdf-directory asdf:*central-registry*)))
     48                (let ((asdf-directory (make-pathname :defaults asdf-file :name nil :type nil)))
     49                  (unless (find asdf-directory asdf:*central-registry* :test #'equal)
     50                    (push asdf-directory asdf:*central-registry*)
     51                    (format verbose "~&Added ~A to ASDF.~&" asdf-directory))))
    5252              *abcl-contrib*)
    5353        (format verbose "Failed to find abcl-contrib at '~A'." abcl-contrib))))))
    54 
    5554
    5655(when (find-contrib :verbose t)
Note: See TracChangeset for help on using the changeset viewer.