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