From 127d9affa1d92ee9be08b499a164204c865613d3 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 17 Jun 1990 13:42:37 +0000 Subject: [PATCH] Added CONSTANT-CONTINUATION-P assertion to CONTINUATION-VALUE so that we don't lose again from people doing it on non-constant continuations. --- compiler/ir1opt.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/compiler/ir1opt.lisp b/compiler/ir1opt.lisp index 6244e0ecd..d4649aba0 100644 --- a/compiler/ir1opt.lisp +++ b/compiler/ir1opt.lisp @@ -46,6 +46,7 @@ ;;; (proclaim '(function continuation-value (continuation) t)) (defun continuation-value (cont) + (assert (constant-continuation-p cont)) (constant-value (ref-leaf (continuation-use cont)))) -- GitLab