From 21cc22ee56f70684b2a90734c1ad243f323af4b8 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Fri, 19 Sep 2008 19:06:01 +0000 Subject: [PATCH] 1.0.20.12: :CACHED-CONSTANT TNs don't exist * Remove FIXMEs asking about them, and other spurious references. --- src/compiler/tn.lisp | 3 +-- src/compiler/vop.lisp | 4 ---- version.lisp-expr | 2 +- 3 files changed, 2 insertions(+), 7 deletions(-) diff --git a/src/compiler/tn.lisp b/src/compiler/tn.lisp index d044d2108..e109e49b5 100644 --- a/src/compiler/tn.lisp +++ b/src/compiler/tn.lisp @@ -442,8 +442,7 @@ ;;; Return the value of an immediate constant TN. (defun tn-value (tn) (declare (type tn tn)) - ;; FIXME: What is :CACHED-CONSTANT? - (aver (member (tn-kind tn) '(:constant :cached-constant))) + (aver (eq (tn-kind tn) :constant)) (constant-value (tn-leaf tn))) ;;; Force TN to be allocated in a SC that doesn't need to be saved: an diff --git a/src/compiler/vop.lisp b/src/compiler/vop.lisp index 4b0366072..fbd00564c 100644 --- a/src/compiler/vop.lisp +++ b/src/compiler/vop.lisp @@ -239,10 +239,6 @@ ;; SC and OFFSET are already filled in. ;; ;; CONSTANT-TNs are non-packed TNs that represent constants. - ;; :CONSTANT TNs may eventually be converted to :CACHED-CONSTANT - ;; normal TNs. - ;; - ;; FIXME: What is :CACHED-CONSTANT? (normal-tns nil :type (or tn null)) (restricted-tns nil :type (or tn null)) (wired-tns nil :type (or tn null)) diff --git a/version.lisp-expr b/version.lisp-expr index 6f17b9704..d123f5f4e 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.20.11" +"1.0.20.12" -- 2.11.4.GIT