X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Falloc.lisp;h=74c49e8a336fab00c261b8b5bf34f156ae0dbbc8;hb=b83353d9f998e5c0e34604b5593df70c66d2c510;hp=02b3cc46881f4bde9bbb807d8f3ac81a76f43578;hpb=76e4485532bed4a1cf3de855f81d9d8c7b59e982;p=sbcl.git

diff --git a/src/compiler/x86-64/alloc.lisp b/src/compiler/x86-64/alloc.lisp
index 02b3cc4..74c49e8 100644
--- a/src/compiler/x86-64/alloc.lisp
+++ b/src/compiler/x86-64/alloc.lisp
@@ -177,7 +177,7 @@
   (:args)
   (:results (result :scs (any-reg)))
   (:generator 1
-    (inst lea result (make-fixup "funcallable_instance_tramp" :foreign))))
+    (inst mov result (make-fixup "funcallable_instance_tramp" :foreign))))
 
 (define-vop (fixed-alloc)
   (:args)