X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fmacros.lisp;h=fd533a0951ae120d3d0f6c7a0fe2a8f7b1c83548;hb=a41b3abd325afaabf14e444ad516c3e9833c3883;hp=ecc3d9e6792578fec1d560140df5170b2bcc381d;hpb=0b39d68b05ef669f812a6bf570126505d931bf96;p=sbcl.git

diff --git a/src/compiler/macros.lisp b/src/compiler/macros.lisp
index ecc3d9e..fd533a0 100644
--- a/src/compiler/macros.lisp
+++ b/src/compiler/macros.lisp
@@ -54,7 +54,8 @@
     (multiple-value-bind (body decls doc)
 	(parse-defmacro lambda-list n-form body name "special form"
 			:environment n-env
-			:error-fun 'convert-condition-into-compiler-error)
+			:error-fun 'convert-condition-into-compiler-error
+                        :wrap-block nil)
       `(progn
 	 (declaim (ftype (function (continuation continuation t) (values))
 			 ,fn-name))
@@ -110,7 +111,8 @@
 			:error-fun `(lambda (&rest stuff)
 				      (declare (ignore stuff))
 				      (return-from ,name
-					(values nil t))))
+					(values nil t)))
+                        :wrap-block nil)
       `(lambda (,n-form &aux (,n-env *lexenv*))
          ,@decls
          (block ,name