X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fparms.lisp;h=8d14f7eb1e728577f46c323575ba0b0a2ae976ba;hb=69e6aef5e6fb3bd682c7a2cbf774034d2ea58ee8;hp=3bb0851359ecfa3ca9859089e554fc23f432fd69;hpb=9a0890f2e981ef940888a25ca757762f714c4a9f;p=sbcl.git

diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp
index 3bb0851..8d14f7e 100644
--- a/src/compiler/x86-64/parms.lisp
+++ b/src/compiler/x86-64/parms.lisp
@@ -203,4 +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))