Optimize CONCATENATE transform.

[sbcl.git] / src / compiler / x86 / subprim.lisp

diff --git a/src/compiler/x86/subprim.lisp b/src/compiler/x86/subprim.lisp
index a922c85..44fa889 100644 (file)
--- a/src/compiler/x86/subprim.lisp
+++ b/src/compiler/x86/subprim.lisp
@@ -80,3 +80,5 @@
     DONE))
 
 (define-static-fun length (object) :translate length)
+(define-static-fun %coerce-callable-to-fun (callable)
+  :translate %coerce-callable-to-fun)