X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Fsb-aclrepl.asd;h=8a18b3988802f71a0d2c09aaf052d9736614e4d3;hb=644a1ff36dd578321fd0592aa47748e8af741542;hp=0788deacfc950be5d28047489f366f4dd8a94d96;hpb=c486d57a174a2c9290d5db6ab803ec8c41ecc588;p=sbcl.git diff --git a/contrib/sb-aclrepl/sb-aclrepl.asd b/contrib/sb-aclrepl/sb-aclrepl.asd index 0788dea..8a18b39 100644 --- a/contrib/sb-aclrepl/sb-aclrepl.asd +++ b/contrib/sb-aclrepl/sb-aclrepl.asd @@ -3,17 +3,19 @@ (defpackage #:sb-aclrepl-system (:use #:asdf #:cl)) (in-package #:sb-aclrepl-system) -;; Work-around for optimization note from EQL specializer -(declaim (optimize (sb-ext:inhibit-warnings 3))) - (defsystem sb-aclrepl :author "Kevin Rosenberg " :description "An AllegroCL compatible REPL" + #+sb-building-contrib :pathname + #+sb-building-contrib "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)))) (oos 'load-op 'sb-aclrepl-tests) (oos 'test-op 'sb-aclrepl-tests)) @@ -25,5 +27,3 @@ (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"))) - -(declaim (optimize (sb-ext:inhibit-warnings 0)))