X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1opt.lisp;h=4bf7285bebb92ebbe3286d57a9b1caa521d5c664;hb=2a71a27c55ad98e36f2886017d45ca2ae986296d;hp=6517d35ba33d92028f5dd078c77cebf172df3824;hpb=b7d4d90a22c7dff0c41d261fc4f5c3266edd2a6e;p=sbcl.git

diff --git a/src/compiler/ir1opt.lisp b/src/compiler/ir1opt.lisp
index 6517d35..4bf7285 100644
--- a/src/compiler/ir1opt.lisp
+++ b/src/compiler/ir1opt.lisp
@@ -681,21 +681,7 @@
 		    ;; function arguments. -- WHN 19990918
 		    (not (ir1-attributep attr call))
 		    (every #'constant-lvar-p args)
-		    (node-lvar node)
-		    ;; Even if the function is foldable in principle,
-		    ;; it might be one of our low-level
-		    ;; implementation-specific functions. Such
-		    ;; functions don't necessarily exist at runtime on
-		    ;; a plain vanilla ANSI Common Lisp
-		    ;; cross-compilation host, in which case the
-		    ;; cross-compiler can't fold it because the
-		    ;; cross-compiler doesn't know how to evaluate it.
-		    #+sb-xc-host
-		    (or (fboundp (combination-fun-source-name node))
-                        (progn (format t ";;; !!! Unbound fun: (~S~{ ~S~})~%"
-                                       (combination-fun-source-name node)
-                                       (mapcar #'lvar-value args))
-                               nil)))
+		    (node-lvar node))
 	   (constant-fold-call node)
 	   (return-from ir1-optimize-combination)))