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