From 569a5ef6f4fd4f2932e09c9f3ffed6527e8df630 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Tue, 5 Nov 2002 13:29:34 +0000
Subject: [PATCH] When compiling (function (lambda-block f (x) ...)), a block
 definition is missing.

---
 src/cmp/cmpspecial.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpspecial.lsp b/src/cmp/cmpspecial.lsp
index 26a0894bf..63e6cb183 100644
--- a/src/cmp/cmpspecial.lsp
+++ b/src/cmp/cmpspecial.lsp
@@ -115,7 +115,7 @@
 		  (funob (c1lambda-expr (cddr fun)))
 		  (info (second funob))
 		  (closure (closure-p funob))
-		  (body (cdddr fun))
+		  (body `(BLOCK ,name ,@(cdddr fun)))
 		  (fun (make-fun :name name
 				 :cfun (next-cfun)
 				 :closure closure)))