X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=kmrcl.asd;h=b866b39929c914e7a83e8e4eaf9c1a28256bb9bf;hb=5dbd1fda3cf8f68c070cf3036dc6b1b536bc9f5a;hp=947b33aa6e9454a4b3746927ba3870bcdd108e18;hpb=152fd9dc7d5a0fb8079f3b18ecafff6aeb836a75;p=kmrcl.git

diff --git a/kmrcl.asd b/kmrcl.asd
index 947b33a..b866b39 100644
--- a/kmrcl.asd
+++ b/kmrcl.asd
@@ -7,7 +7,7 @@
 ;;;; Programmer:    Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: kmrcl.asd,v 1.29 2003/04/29 04:56:58 kevin Exp $
+;;;; $Id: kmrcl.asd,v 1.30 2003/06/06 21:59:29 kevin Exp $
 ;;;;
 ;;;; This file, part of KMRCL, is Copyright (c) 2002 by Kevin M. Rosenberg
 ;;;;
@@ -16,6 +16,7 @@
 ;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
 ;;;; *************************************************************************
 
+(in-package #:cl-user)
 (defpackage #:kmrcl-system (:use #:asdf #:cl))
 (in-package #:kmrcl-system)
 
@@ -53,6 +54,6 @@
 
 #+(or allegro lispworks sbcl cmu scl)
 (defmethod perform ((o test-op) (c (eql (find-system :kmrcl))))
-  (oos 'load-op 'kmrcl-tests)
-  (oos 'test-op 'kmrcl-tests))
+  (operate 'load-op 'kmrcl-tests)
+  (operate 'test-op 'kmrcl-tests))