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