X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcompiler%2Falpha%2Fcell.lisp;h=b99075bdb2d21c663f7b1051249d61d80f23ee16;hb=7a2a31f9407a7da9d26cf1bc91c302461823719f;hp=3cd855889d85468c6aea6efba3808c37c70818d7;hpb=57d30b9b5a4b2be52431e0a8daaf81d409d146a9;p=sbcl.git

diff --git a/src/compiler/alpha/cell.lisp b/src/compiler/alpha/cell.lisp
index 3cd8558..b99075b 100644
--- a/src/compiler/alpha/cell.lisp
+++ b/src/compiler/alpha/cell.lisp
@@ -368,7 +368,7 @@
                       (:variant ,offset))
                     ,@(when writable
                         `((defknown ((setf ,fn)) (,lisp-type) ,lisp-type
-                            (unsafe))
+                            ())
                           (define-vop (,set ,set-vop)
                             (:translate (setf ,fn))
                             (:variant ,offset)))))))))