X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fcompiler-support.lisp;h=e00deee1111d1498d278580d633b2dd0ed0a8d8e;hb=d25e3478acccec70402ff32554669a982be8e281;hp=f32755bf2e951db3e174c223401ed7f1c7c4b15b;hpb=a556288505e2687ac333e1b0a8deebb13c76a60c;p=sbcl.git

diff --git a/src/pcl/compiler-support.lisp b/src/pcl/compiler-support.lisp
index f32755b..e00deee 100644
--- a/src/pcl/compiler-support.lisp
+++ b/src/pcl/compiler-support.lisp
@@ -113,7 +113,7 @@
 ;;; slightly more cheaply then the transforms. (Transforms add new
 ;;; lambdas, which requires more work by the compiler.)
 
-(deftransform slot-value ((object slot-name) * * :important t)
+(deftransform slot-value ((object slot-name))
   "optimize"
   (let (c-slot-name)
     (if (and (pcl-boot-state-complete-p)
@@ -125,9 +125,11 @@
 
 (deftransform sb-pcl::set-slot-value ((object slot-name new-value)
                                       (t symbol t) t
-                                      :important t
-                                      ;; see comment in the
-                                      ;; compiler-macro
+                                      ;; Safe code wants to check the
+                                      ;; type, and the global accessor
+                                      ;; won't do that. Also see the
+                                      ;; comment in the
+                                      ;; compiler-macro.
                                       :policy (< safety 3))
   "optimize"
   (let (c-slot-name)