X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdefboot.lisp;h=33b265018b33443035d8a37aead29d3faa7729d6;hb=7dfa54273d2ebc6c2be9a39ab5cd6df639d340c9;hp=046006b56ce4022cb196dff2b9a2a21dc5f32218;hpb=0337d730355489f27cb3e1527d45c27fd2243ddf;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 046006b..33b2650 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -530,7 +530,8 @@ evaluated as a PROGN."
                  (declare (ignore rest))
                  `(,name #'(lambda (&rest temp)
                              (setq ,temp-var temp)
-                             (go ,tag))
+                             (locally (declare (optimize (safety 0)))
+                               (go ,tag)))
                          ,@keywords)))
              (make-apply-and-return (clause-data)
                (destructuring-bind (name tag keywords lambda-list body) clause-data