From 300fcbe6122060716476ec8ad7e33b8dc83b865d Mon Sep 17 00:00:00 2001 From: Gary King <gwking@metabang.com> Date: Sat, 6 Sep 2008 22:57:16 +0000 Subject: [PATCH] I had put the operation-done-p patch in the wrong place... ack. --- asdf.lisp | 12 ++++++------ test/test3.script | 4 +++- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 71d4da56..89d99297 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 6b6b58f6..4c6f8f05 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"))) -- GitLab