X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Fsb-aclrepl.asd;h=0c5b8f81fa251add763b604da073af9b9de68d5e;hb=3e991f3ecd3a0a5ba50bc5b43c4ed0133c837701;hp=410ff07cfac9eb2d8eb6da044528896d75d425ea;hpb=01af9d7ee59a7427f9cc5c6f9fea41fe87851367;p=sbcl.git

diff --git a/contrib/sb-aclrepl/sb-aclrepl.asd b/contrib/sb-aclrepl/sb-aclrepl.asd
index 410ff07..0c5b8f8 100644
--- a/contrib/sb-aclrepl/sb-aclrepl.asd
+++ b/contrib/sb-aclrepl/sb-aclrepl.asd
@@ -4,14 +4,21 @@
 (in-package #:sb-aclrepl-system)
 
 (defsystem sb-aclrepl
-    :version "0.6"
     :author "Kevin Rosenberg <kevin@rosenberg.net>"
     :description "An AllegroCL compatible REPL"
-    :components ((:file "repl")
+    :components ((:file "toplevel")
+		 (:file "repl" :depends-on ("toplevel"))
 		 (:file "inspect" :depends-on ("repl"))
 		 (:file "debug" :depends-on ("repl"))))
 
 (defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl))))
-  (or (load "aclrepl-tests.lisp")
-      (error "test-op failed")))
+  (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")))