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

diff --git a/kmrcl-tests.asd b/kmrcl-tests.asd
index 8f5a446..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.1 2003/04/28 21:12:27 kevin Exp $
+;;;; $Id$
 ;;;; *************************************************************************
 
 (defpackage #:kmrcl-tests-system
@@ -16,10 +16,12 @@
 
 (defsystem kmrcl-tests
     :depends-on (:rt :kmrcl)
-    :components ((:file "tests")))
+    :components
+    ((:file "tests")))
 
-(defmethod perform ((o test-op) (c (eql (find-system :kmrcl-tests))))
+(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))