X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Ftn.lisp;h=e109e49b5e95de4a40391a2c7924b84efcd95857;hb=b9519773faa7b3c98915eccb9cb1fd8a8270ee56;hp=d044d21081b11306805d236a4c8c6fccab221894;hpb=d604a358d8e5eb5587989e0a4f1d31dbe6ac5ffe;p=sbcl.git

diff --git a/src/compiler/tn.lisp b/src/compiler/tn.lisp
index d044d21..e109e49 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