X-Git-Url: http://git.kpe.io/?p=kmrcl.git;a=blobdiff_plain;f=kmrcl-tests.asd;h=331ee74d5a2e0220cea990acd045a91414a9eec3;hp=2999c2664420f23527f9030bdd606b0a327d79dc;hb=54cd6cb1b9550ac2310e2c6dffc9cdecd2bdccd3;hpb=4a5b626f01db51b02f969adb33ddad6aa9ee303a

diff --git a/kmrcl-tests.asd b/kmrcl-tests.asd
index 2999c26..331ee74 100644
--- a/kmrcl-tests.asd
+++ b/kmrcl-tests.asd
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2003
 ;;;;
-;;;; $Id: kmrcl-tests.asd,v 1.3 2003/06/06 21:59:29 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (defpackage #:kmrcl-tests-system
@@ -22,5 +22,6 @@
 (defmethod perform ((o test-op) (c (eql (find-system 'kmrcl-tests))))
   (or (funcall (intern (symbol-name '#:do-tests)
 		       (find-package '#:regression-test)))
-      (error "test-op failed")))
+      (error "test-op failed")
+      t))