0.9.13.6:
authorChristophe Rhodes <csr21@cam.ac.uk>
Sun, 28 May 2006 14:16:59 +0000 (14:16 +0000)
committerChristophe Rhodes <csr21@cam.ac.uk>
Sun, 28 May 2006 14:16:59 +0000 (14:16 +0000)
Adjust asdf "make up" target for new Sourceforge layout.
... and update asdf, while we're at it.

contrib/asdf/Makefile
contrib/asdf/asdf.lisp
version.lisp-expr

index f5389e4..27a8d56 100644 (file)
@@ -6,9 +6,9 @@ test::
        true
 
 up:
-       cvs -d :pserver:anonymous@cvs.sf.net:/cvsroot/cclan \
+       cvs -d :pserver:anonymous@cclan.cvs.sourceforge.net:/cvsroot/cclan \
                co -kv -p asdf/asdf.lisp >/tmp/$$$$ &&\
                mv /tmp/$$$$ asdf.lisp
-       cvs -d :pserver:anonymous@cvs.sf.net:/cvsroot/cclan \
+       cvs -d :pserver:anonymous@cclan.cvs.sourceforge.net:/cvsroot/cclan \
                co -kv -p asdf/README  >/tmp/$$$$ &&\
                mv /tmp/$$$$ README
index e2d7bb2..b0006ed 100644 (file)
@@ -1,4 +1,4 @@
-;;; This is asdf: Another System Definition Facility.  1.96
+;;; This is asdf: Another System Definition Facility.  1.97
 ;;;
 ;;; Feedback, bug reports, and patches are all welcome: please mail to
 ;;; <cclan-list@lists.sf.net>.  But note first that the canonical
 
 (in-package #:asdf)
 
-(defvar *asdf-revision* (let* ((v "1.96")
+(defvar *asdf-revision* (let* ((v "1.97")
                                (colon (or (position #\: v) -1))
                                (dot (position #\. v)))
                           (and v colon dot
@@ -828,37 +828,37 @@ system."))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; invoking operations
 
-(defun operate (operation-class system &rest args)
+(defun operate (operation-class system &rest args &key (verbose t) version)
   (let* ((op (apply #'make-instance operation-class
-                    :original-initargs args args))
-         (*verbose-out*
-          (if (getf args :verbose t)
-              *trace-output*
-              (make-broadcast-stream)))
-         (system (if (typep system 'component) system (find-system system)))
-         (steps (traverse op system)))
-    (with-compilation-unit ()
-      (loop for (op . component) in steps do
-            (loop
-             (restart-case
-                 (progn (perform op component)
-                        (return))
-               (retry ()
-                 :report
-                 (lambda (s)
-                   (format s "~@<Retry performing ~S on ~S.~@:>"
-                           op component)))
-               (accept ()
-                 :report
-                 (lambda (s)
-                   (format s
-                           "~@<Continue, treating ~S on ~S as ~
-                            having been successful.~@:>"
-                           op component))
-                 (setf (gethash (type-of op)
-                                (component-operation-times component))
-                       (get-universal-time))
-                 (return))))))))
+                    :original-initargs args
+                    args))
+         (*verbose-out* (if verbose *trace-output* (make-broadcast-stream)))
+         (system (if (typep system 'component) system (find-system system))))
+    (unless (version-satisfies system version)
+      (error 'missing-component :requires system :version version))
+    (let ((steps (traverse op system)))
+      (with-compilation-unit ()
+        (loop for (op . component) in steps do
+             (loop
+                (restart-case
+                    (progn (perform op component)
+                           (return))
+                  (retry ()
+                    :report
+                    (lambda (s)
+                      (format s "~@<Retry performing ~S on ~S.~@:>"
+                              op component)))
+                  (accept ()
+                    :report
+                    (lambda (s)
+                      (format s
+                              "~@<Continue, treating ~S on ~S as ~
+                               having been successful.~@:>"
+                              op component))
+                    (setf (gethash (type-of op)
+                                   (component-operation-times component))
+                          (get-universal-time))
+                    (return)))))))))
 
 (defun oos (&rest args)
   "Alias of OPERATE function"
index 9c6db8a..2eb1ef9 100644 (file)
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.9.13.5"
+"0.9.13.6"