X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Frepresent.lisp;h=8d2418e1ad0ce650a17d0f900059edcc924dff69;hb=5745b5a5b2e3b967bf3876b4306f31b3c78495fa;hp=c4b92cced3cf8c96739489576ee1a9cf8a778d08;hpb=d0376c0b2e38ff518c85d50a5befd3a13e14d3e1;p=sbcl.git

diff --git a/src/compiler/represent.lisp b/src/compiler/represent.lisp
index c4b92cc..8d2418e 100644
--- a/src/compiler/represent.lisp
+++ b/src/compiler/represent.lisp
@@ -414,12 +414,7 @@
                    (operand-restriction-ok
                     (first (template-result-types info))
                     (if write-p op-ptype other-ptype)
-                    :t-ok nil)
-                   ;; KLUDGE: Move VOPs with constant SCs can't use
-                   ;; load-time-value TNs. FIXME: if the VOPs were more
-                   ;; clever they could -- this is the release bandaid.
-                   (or (not (eq 'constant (sc-name op-sc)))
-                       (tn-leaf op-tn)))
+                    :t-ok nil))
           (return info))))))
 
 ;;; Emit a coercion VOP for OP BEFORE the specifed VOP or die trying.