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