src/: Wrap functionish bodies in an appropriately named `block'.
[sod] / src / c-types-proto.lisp
index edadd64..7134962 100644 (file)
           ,@doc
           (destructuring-bind ,bvl ,tail
             ,@decls
-            ,@body))
+            (block ,name ,@body)))
         ',name))))
 
 (export 'c-type-alias)