Changeset 14065
- Timestamp:
- 08/08/12 06:41:52 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/abcl-contrib.lisp
r13730 r14065 46 46 :name :wild 47 47 :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)))) 52 52 *abcl-contrib*) 53 53 (format verbose "Failed to find abcl-contrib at '~A'." abcl-contrib)))))) 54 55 54 56 55 (when (find-contrib :verbose t)
Note: See TracChangeset
for help on using the changeset viewer.