(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")
- (:file "inspect" :depends-on ("repl"))
- (:file "debug" :depends-on ("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))
(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")))