X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Fsb-aclrepl.asd;h=565f3e9119c90cef19e47232f6dc62ef71f85f7c;hb=1de341cf0652fb0eb8354f64d95acb0899811173;hp=44128700fb842de76b8463d2b98df844dc23eec5;hpb=83c1b8bca82fc165b01332ef9e5c031c64d758d8;p=sbcl.git

diff --git a/contrib/sb-aclrepl/sb-aclrepl.asd b/contrib/sb-aclrepl/sb-aclrepl.asd
index 4412870..565f3e9 100644
--- 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*)))
+