From 4c45478bba4fd64a50de914dd6fc51ad6eaee63f Mon Sep 17 00:00:00 2001
From: Gary King <gwking@metabang.com>
Date: Sat, 6 Sep 2008 22:29:11 +0000
Subject: [PATCH] Add method for operation-done-p (test-op system) that always
 returns nil (after all, testing is never really done). Thanks to Luis
 Oliveira.

---
 asdf.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 7d497ee8..71d4da56 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) ())
-- 
GitLab