Skip to content
Snippets Groups Projects
Commit 7efb0ba7 authored by ram's avatar ram
Browse files

Added initialization of the BLOCK-TEST-CONSTRAINT slot.

parent a5e6c2a4
No related branches found
No related tags found
No related merge requests found
...@@ -139,7 +139,8 @@ ...@@ -139,7 +139,8 @@
(setf (block-in structure) nil) (setf (block-in structure) nil)
(setf (block-out structure) nil) (setf (block-out structure) nil)
(setf (block-flag 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-lambda structure) *current-lambda*)
(setf (block-start-cleanup structure) *current-cleanup*) (setf (block-start-cleanup structure) *current-cleanup*)
(setf (block-end-cleanup structure) *current-cleanup*) (setf (block-end-cleanup structure) *current-cleanup*)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment