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