0.pre8.54

[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 4412870..565f3e9 100644 (file)
--- a/contrib/sb-aclrepl/sb-aclrepl.asd
+++ b/contrib/sb-aclrepl/sb-aclrepl.asd
@@ -8,3 +8,10 @@
     :components ((:file "repl")
                 (:file "inspect" :depends-on ("repl"))))
 
+
+;; 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*)))
+