X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86%2Fsubprim.lisp;h=44fa889cef69fc13dce4b0656a240326671e6338;hb=8e4ec430504f0f563280be26034af590dff50d34;hp=a922c85a49ebe942101fe27bf4056ca205f92647;hpb=a6b91f356da1b5ae2987f79db9bd137970512959;p=sbcl.git

diff --git a/src/compiler/x86/subprim.lisp b/src/compiler/x86/subprim.lisp
index a922c85..44fa889 100644
--- 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)