diff --git a/asdf.lisp b/asdf.lisp index 7d497ee84ce1c46e185d7fac7c6412ebf4000890..71d4da5698aa7fd960ad8ff529fa4ad2ff80cf3b 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,4 +1,4 @@ -;;; This is asdf: Another System Definition Facility. $Revision: 1.125 $ +;;; This is asdf: Another System Definition Facility. $Revision: 1.126 $ ;;; ;;; Feedback, bug reports, and patches are all welcome: please mail to ;;; <cclan-list@lists.sf.net>. But note first that the canonical @@ -119,7 +119,7 @@ (in-package #:asdf) -(defvar *asdf-revision* (let* ((v "$Revision: 1.125 $") +(defvar *asdf-revision* (let* ((v "$Revision: 1.126 $") (colon (or (position #\: v) -1)) (dot (position #\. v))) (and v colon dot @@ -899,6 +899,10 @@ the head of the tree")) (cons (list 'compile-op (component-name c)) (call-next-method))) +(defmethod operation-done-p ((operation test-op) (c system)) + "Testing a system is _never_ done." + nil) + ;;; load-source-op (defclass load-source-op (basic-load-op) ())