CVS: sbcl/contrib/sb-aclrepl sb-aclrepl.asd,1.6,1.7

Update of /cvsroot/sbcl/sbcl/contrib/sb-aclrepl
In directory sc8-pr-cvs1:/tmp/cvs-serv4852/contrib/sb-aclrepl

Modified Files:
        sb-aclrepl.asd 
Log Message:
0.pre8.97:
      * contrib/sb-rt/Makefile: fixed to install sb-rt as an ASDF system
      * contrib/sb-rt/rt.lisp: renamed from sb-rt.lisp
      * contrib/sb-aclrepl/sb-aclrepl.asd: Reworked to create a separate
        sb-aclrepl-tests ASDF system  


Index: sb-aclrepl.asd
===================================================================
RCS file: /cvsroot/sbcl/sbcl/contrib/sb-aclrepl/sb-aclrepl.asd,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- sb-aclrepl.asd      23 Apr 2003 03:26:51 -0000      1.6
+++ sb-aclrepl.asd      23 Apr 2003 16:36:23 -0000      1.7
@@ -3,18 +3,21 @@
 (defpackage #:sb-aclrepl-system (:use #:asdf #:cl))
 (in-package #:sb-aclrepl-system)
 
-(require 'sb-rt)
-
 (defsystem sb-aclrepl
-    :version "0.6"
     :author "Kevin Rosenberg <kevin@xxxxxxxxxxxxx>"
     :description "An AllegroCL compatible REPL"
     :components ((:file "repl")
                 (:file "inspect" :depends-on ("repl"))
-                (:file "debug" :depends-on ("repl"))
-                (:file "tests" :depends-on ("debug" "inspect"))))
+                (:file "debug" :depends-on ("repl"))))
 
 (defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl))))
+  (oos 'load-op 'sb-aclrepl-tests)
+  (oos 'test-op 'sb-aclrepl-tests))
+
+(defsystem sb-aclrepl-tests
+    :depends-on (sb-rt)
+    :components ((:file "tests")))
+
+(defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl-tests))))
   (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
       (error "test-op failed")))
-



-------------------------------------------------------
This sf.net email is sponsored by:ThinkGeek
Welcome to geek heaven.
http://thinkgeek.com/sf