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

diff --git a/src/compiler/x86-64/parms.lisp b/src/compiler/x86-64/parms.lisp
index 7d90673..8d14f7e 100644
--- 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))