projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' of ssh://git.b9.com/home/gitpub/kmrcl
[kmrcl.git]
/
kmrcl-tests.asd
diff --git
a/kmrcl-tests.asd
b/kmrcl-tests.asd
index 0f486bacfbb432b9dd9ee876a4f53b10ab851262..331ee74d5a2e0220cea990acd045a91414a9eec3 100644
(file)
--- a/
kmrcl-tests.asd
+++ b/
kmrcl-tests.asd
@@
-7,7
+7,7
@@
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2003
;;;;
;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2003
;;;;
-;;;; $Id
: kmrcl-tests.asd,v 1.2 2003/05/08 19:19:08 kevin Exp
$
+;;;; $Id$
;;;; *************************************************************************
(defpackage #:kmrcl-tests-system
;;;; *************************************************************************
(defpackage #:kmrcl-tests-system
@@
-19,8
+19,9
@@
: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)))
(or (funcall (intern (symbol-name '#:do-tests)
(find-package '#:regression-test)))
- (error "test-op failed")))
+ (error "test-op failed")
+ t))