Make %coerce-callable-to-fun static on x86oids.

It's called a lot when doing funcall or apply.

diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp
index 7d90673..8d14f7e 100644 (file)
--- a/src/compiler/x86-64/parms.lisp
+++ b/src/compiler/x86-64/parms.lisp
@@ -203,7 +203,8 @@
     sb!kernel:two-arg-ior
     sb!kernel:two-arg-xor
     sb!kernel:two-arg-gcd
-    sb!kernel:two-arg-lcm))
+    sb!kernel:two-arg-lcm
+    sb!kernel:%coerce-callable-to-fun))
 
 #!+sb-simd-pack
 (defvar *simd-pack-element-types* '(integer single-float double-float))

diff --git a/src/compiler/x86-64/subprim.lisp b/src/compiler/x86-64/subprim.lisp
index b30b3d1..2079764 100644 (file)
--- a/src/compiler/x86-64/subprim.lisp
+++ b/src/compiler/x86-64/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)

diff --git a/src/compiler/x86/parms.lisp b/src/compiler/x86/parms.lisp
index 5502afd..cf6ebb2 100644 (file)
--- a/src/compiler/x86/parms.lisp
+++ b/src/compiler/x86/parms.lisp
@@ -287,7 +287,8 @@
     sb!kernel:two-arg-ior
     sb!kernel:two-arg-xor
     sb!kernel:two-arg-gcd
-    sb!kernel:two-arg-lcm))
+    sb!kernel:two-arg-lcm
+    sb!kernel:%coerce-callable-to-fun))
 \f
 ;;;; stuff added by jrd
 

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)