X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1tran.lisp;h=8ed61a8aa3ff62d303238c685e0524f460ab6667;hb=0794cd3908a441222f430ba0cf3bb7c3e1a96c63;hp=a58d8d7757a63b0dd3fb293ee96efb0ebc32e53f;hpb=70c980b4c9285f4d518c80d314baac0da511c1bf;p=sbcl.git

diff --git a/src/compiler/ir1tran.lisp b/src/compiler/ir1tran.lisp
index a58d8d7..8ed61a8 100644
--- a/src/compiler/ir1tran.lisp
+++ b/src/compiler/ir1tran.lisp
@@ -1171,6 +1171,16 @@
         (make-lexenv
          :default res
          :policy (process-optimize-decl spec (lexenv-policy res))))
+       (muffle-conditions
+	(make-lexenv
+	 :default res
+	 :handled-conditions (process-muffle-conditions-decl
+			      spec (lexenv-handled-conditions res))))
+       (unmuffle-conditions
+	(make-lexenv
+	 :default res
+	 :handled-conditions (process-unmuffle-conditions-decl
+			      spec (lexenv-handled-conditions res))))
        (type
         (process-type-decl (cdr spec) res vars))
        (values