diff --git a/asdf.lisp b/asdf.lisp index 71d4da5698aa7fd960ad8ff529fa4ad2ff80cf3b..89d99297095504f9ed9a406245f42653849813ef 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -1,4 +1,4 @@ -;;; This is asdf: Another System Definition Facility. $Revision: 1.126 $ +;;; This is asdf: Another System Definition Facility. $Revision: 1.127 $ ;;; ;;; 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.126 $") +(defvar *asdf-revision* (let* ((v "$Revision: 1.127 $") (colon (or (position #\: v) -1)) (dot (position #\. v))) (and v colon dot @@ -899,10 +899,6 @@ 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) ()) @@ -940,6 +936,10 @@ the head of the tree")) (defmethod perform ((operation test-op) (c component)) nil) +(defmethod operation-done-p ((operation test-op) (c system)) + "Testing a system is _never_ done." + nil) + (defgeneric load-preferences (system operation) (:documentation "Deprecated - will be removed August 2008 diff --git a/test/test3.script b/test/test3.script index 6b6b58f6c23054320eb65b00d38178fe1e6870f4..4c6f8f050bee75ddb674b29ad28fe27913e2f8ba 100644 --- a/test/test3.script +++ b/test/test3.script @@ -13,7 +13,9 @@ (asdf:oos 'asdf:load-op 'test3) (asdf:missing-dependency (c) (format t "first test failed as expected: - ~%~A~%" c)) - (:no-error (c) (error "should have failed, oops"))) + (:no-error (c) + (declare (ignore c)) + (error "should have failed, oops"))) (pushnew :f1 *features*) (asdf:oos 'asdf:load-op 'test3) (assert (probe-file (compile-file-pathname "file1")))