Changeset 13874


Ignore:
Timestamp:
Jun 23, 2010, 11:32:25 PM (9 years ago)
Author:
rme
Message:

Update to ASDF 2.002

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/tools/asdf.lisp

    r13768 r13874  
    7171  (let* ((asdf-version
    7272          ;; the 1+ helps the version bumping script discriminate
    73           (subseq "VERSION:2.000" (1+ (length "VERSION"))))
     73          (subseq "VERSION:2.002" (1+ (length "VERSION"))))
    7474         (existing-asdf (find-package :asdf))
    7575         (vername '#:*asdf-version*)
     
    468468
    469469(defmacro while-collecting ((&rest collectors) &body body)
     470  "COLLECTORS should be a list of names for collections.  A collector
     471defines a function that, when applied to an argument inside BODY, will
     472add its argument to the corresponding collection.  Returns multiple values,
     473a list for each collection, in order.
     474   E.g.,
     475\(while-collecting \(foo bar\)
     476           \(dolist \(x '\(\(a 1\) \(b 2\) \(c 3\)\)\)
     477             \(foo \(first x\)\)
     478             \(bar \(second x\)\)\)\)
     479Returns two values: \(A B C\) and \(1 2 3\)."
    470480  (let ((vars (mapcar #'(lambda (x) (gensym (symbol-name x))) collectors))
    471481        (initial-values (mapcar (constantly nil) collectors)))
     
    605615                (values :relative nil))
    606616          (values :relative components))
     617      (setf components (remove "" components :test #'equal))
    607618      (cond
    608619        ((equal last-comp "")
    609          (values relative (butlast components) nil))
     620         (values relative components nil)) ; "" already removed
    610621        (force-directory
    611622         (values relative components nil))
     
    20832094        (and (eq type :file)
    20842095             (or (module-default-component-class parent)
    2085                  (find-class 'cl-source-file)))
     2096                 (find-class *default-component-class*)))
    20862097        (sysdef-error "~@<don't recognize component type ~A~@:>" type))))
    20872098
Note: See TracChangeset for help on using the changeset viewer.