X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Fsb-aclrepl.asd;h=9c316633684566394c8fbfc52ddc49ff4ea6b986;hb=b9691ef5009d3669c4f87f4dfbd2baf4538e60f8;hp=565f3e9119c90cef19e47232f6dc62ef71f85f7c;hpb=7ee29f16f6f741a4269b3cd536bc81b592c47fb5;p=sbcl.git

diff --git a/contrib/sb-aclrepl/sb-aclrepl.asd b/contrib/sb-aclrepl/sb-aclrepl.asd
index 565f3e9..9c31663 100644
--- a/contrib/sb-aclrepl/sb-aclrepl.asd
+++ b/contrib/sb-aclrepl/sb-aclrepl.asd
@@ -4,14 +4,26 @@
 (in-package #:sb-aclrepl-system)
 
 (defsystem sb-aclrepl
-    :version "0.5"
-    :components ((:file "repl")
-		 (:file "inspect" :depends-on ("repl"))))
+    :author "Kevin Rosenberg <kevin@rosenberg.net>"
+    :description "An AllegroCL compatible REPL"
+    #+sb-building-contrib :pathname
+    #+sb-building-contrib #p"SYS:CONTRIB;SB-ACLREPL;"
+    :components ((:file "toplevel")
+                 (:file "repl" :depends-on ("toplevel"))
+                 (:file "inspect" :depends-on ("repl"))
+                 (:file "debug" :depends-on ("repl"))))
 
+(defmethod perform :after ((o load-op) (c (eql (find-system :sb-aclrepl))))
+  (provide 'sb-aclrepl))
 
-;; FIXME - test for successful compilation of sb-aclrepl
 (defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl))))
-  (and (boundp 'sb-impl::*inspect-fun*)
-       (boundp 'sb-int:*repl-prompt-fun*)
-       (boundp 'sb-int:*repl-read-form-fun*)))
+  (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")))