0.8.2.39:

[sbcl.git] / contrib / sb-aclrepl / sb-aclrepl.asd

diff --git a/contrib/sb-aclrepl/sb-aclrepl.asd b/contrib/sb-aclrepl/sb-aclrepl.asd
index b14529c..9a7a134 100644 (file)
--- a/contrib/sb-aclrepl/sb-aclrepl.asd
+++ b/contrib/sb-aclrepl/sb-aclrepl.asd
@@ -3,18 +3,25 @@
 (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@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"))
-                (:file "tests" :depends-on ("debug" "inspect"))))
+                (:file "debug" :depends-on ("repl"))))
+
+(defmethod perform :after ((o load-op) (c (eql (find-system :sb-aclrepl))))
+  (provide 'sb-aclrepl))
 
 (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")))
-