X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fx86-64%2Fc-call.lisp;h=192de2223fbddaf817f959a4261d20a15066f27c;hb=7dfa54273d2ebc6c2be9a39ab5cd6df639d340c9;hp=ede3845d41b6d827623666a70d3dbc9ab7530d03;hpb=f6b2e375747a54a1bfa34ead9f9af2d4e8b5aa38;p=sbcl.git

diff --git a/src/compiler/x86-64/c-call.lisp b/src/compiler/x86-64/c-call.lisp
index ede3845..192de22 100644
--- a/src/compiler/x86-64/c-call.lisp
+++ b/src/compiler/x86-64/c-call.lisp
@@ -243,7 +243,7 @@
   (:results (res :scs (sap-reg)))
   (:result-types system-area-pointer)
   (:generator 2
-   (inst lea res (make-fixup foreign-symbol :foreign))))
+   (inst mov res (make-fixup foreign-symbol :foreign))))
 
 #!+linkage-table
 (define-vop (foreign-symbol-dataref-sap)