3 (defpackage #:sb-aclrepl-system (:use #:asdf #:cl))
4 (in-package #:sb-aclrepl-system)
6 ;; Work-around for optimization note from EQL specializer
7 (declaim (optimize (sb-ext:inhibit-warnings 3)))
10 :author "Kevin Rosenberg <kevin@rosenberg.net>"
11 :description "An AllegroCL compatible REPL"
12 :components ((:file "toplevel")
13 (:file "repl" :depends-on ("toplevel"))
14 (:file "inspect" :depends-on ("repl"))
15 (:file "debug" :depends-on ("repl"))))
17 (defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl))))
18 (oos 'load-op 'sb-aclrepl-tests)
19 (oos 'test-op 'sb-aclrepl-tests))
21 (defsystem sb-aclrepl-tests
23 :components ((:file "tests")))
25 (defmethod perform ((o test-op) (c (eql (find-system :sb-aclrepl-tests))))
26 (or (funcall (intern "DO-TESTS" (find-package "SB-RT")))
27 (error "test-op failed")))
29 (declaim (optimize (sb-ext:inhibit-warnings 0)))