From 9012780739b0199acc6042056bcdd1a59fdd8d64 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 21 Jun 1990 20:45:05 +0000 Subject: [PATCH] Fixed OPERADN-RESTRICTION-OK to only call CONTINUATION-VALUE when the continuation is constant. --- compiler/ltn.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/compiler/ltn.lisp b/compiler/ltn.lisp index 4ab7a8cdc..8ac7e2577 100644 --- a/compiler/ltn.lisp +++ b/compiler/ltn.lisp @@ -536,7 +536,8 @@ (eq mem type)) (return t)))) (:constant - (funcall (second restr) (continuation-value cont)))))) + (and (constant-continuation-p cont) + (funcall (second restr) (continuation-value cont))))))) ;;; Template-Args-OK -- Internal -- GitLab