From 7efb0ba7fcb523c371948bf29fbcc62f707331c4 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Mon, 11 Jun 1990 13:53:00 +0000
Subject: [PATCH] Added initialization of the BLOCK-TEST-CONSTRAINT slot.

---
 compiler/alloc.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/compiler/alloc.lisp b/compiler/alloc.lisp
index 09e77fbce..913556b70 100644
--- a/compiler/alloc.lisp
+++ b/compiler/alloc.lisp
@@ -139,7 +139,8 @@
     (setf (block-in structure) nil)
     (setf (block-out structure) nil)
     (setf (block-flag structure) nil)
-    (setf (block-info structure) nil))
+    (setf (block-info structure) nil)
+    (setf (block-test-constraint structure) nil))
    ((setf (block-lambda structure) *current-lambda*)
     (setf (block-start-cleanup structure) *current-cleanup*)
     (setf (block-end-cleanup structure) *current-cleanup*)
-- 
GitLab