X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-aclrepl%2Fsb-aclrepl.asd;h=9a7a1342524d77ee124e29d5214bc18aed0fbd0e;hb=77af6d16968262049d6dadfb5521af7a8a7c6868;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..9a7a134 100644
--- a/contrib/sb-aclrepl/sb-aclrepl.asd
+++ b/contrib/sb-aclrepl/sb-aclrepl.asd
@@ -3,9 +3,6 @@
 (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 <kevin@rosenberg.net>"
     :description "An AllegroCL compatible REPL"
@@ -14,6 +11,9 @@
 		 (: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 +25,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)))