From da3081648ff6bc6366814b35f8c264aa4b1025ea Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Tue, 3 Jul 1990 16:51:00 +0000
Subject: [PATCH] In TN-VALUE, flushed the assertion that the TN is not in the
 CONSTANT SC. It is admittedly somewhat bogus to allocate a indirect constant
 and then access it as an immediate, but less bogus than indirecting for
 recreational value.

---
 compiler/tn.lisp | 1 -
 1 file changed, 1 deletion(-)

diff --git a/compiler/tn.lisp b/compiler/tn.lisp
index 9fe5a1879..9cbbccdd5 100644
--- a/compiler/tn.lisp
+++ b/compiler/tn.lisp
@@ -446,7 +446,6 @@
 (defun tn-value (tn)
   (declare (type tn tn))
   (assert (member (tn-kind tn) '(:constant :cached-constant)))
-  (assert (/= (sc-number (tn-sc tn)) (sc-number-or-lose 'constant)))
   (constant-value (tn-leaf tn)))
 
 
-- 
GitLab