X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=umlisp.asd;h=ff601c4dedbf35af7757b58b4f10fba0e17a4be9;hb=26b92c8df70bcd58358b343db835a599cdc56013;hp=cccf49e0f79f3dd4fd6851d6076832d9fcfc1124;hpb=f761dc1d39bb92917db53f935348f79e4db95e40;p=umlisp.git

diff --git a/umlisp.asd b/umlisp.asd
index cccf49e..ff601c4 100644
--- a/umlisp.asd
+++ b/umlisp.asd
@@ -7,7 +7,7 @@
 ;;;; Author:        Kevin M. Rosenberg
 ;;;; Date Started:  Apr 2000
 ;;;;
-;;;; $Id: umlisp.asd,v 1.18 2003/05/07 22:53:36 kevin Exp $
+;;;; $Id: umlisp.asd,v 1.19 2003/05/08 01:28:30 kevin Exp $
 ;;;;
 ;;;; This file, part of UMLisp, is
 ;;;;    Copyright (c) 2000-2002 by Kevin M. Rosenberg, M.D.
@@ -40,13 +40,3 @@
 (defmethod perform ((o test-op) (c (eql (find-system :umlisp))))
   (oos 'load-op 'umlisp-tests)
   (oos 'test-op 'umlisp-tests))
-
-#+(or allegro lispworks cmu sbcl openmcl scl)
-(defsystem umlisp-tests
-    :depends-on (rt umlisp)
-    :components ((:file "tests")))
-
-#+(or allegro lispworks cmu sbcl openmcl scl)
-(defmethod perform ((o test-op) (c (eql (find-system :umlisp-tests))))
-  (or (funcall (intern (symbol-name '#:do-tests) (find-package '#:rtest)))
-      (error "test-op failed")))