;;;; Author: Kevin M. Rosenberg
;;;; Date Started: Apr 2003
;;;;
-;;;; $Id: kmrcl-tests.asd,v 1.2 2003/05/08 19:19:08 kevin Exp $
+;;;; $Id: kmrcl-tests.asd,v 1.3 2003/06/06 21:59:29 kevin Exp $
;;;; *************************************************************************
(defpackage #:kmrcl-tests-system
: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")))