X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Fx86%2Farith.lisp;h=392f67cfdba221a45760e958b21988ae2397f298;hb=e7ec364a5d88c71a0dbaf501161c0209dd8dde19;hp=92c270a0ea01dfcf0b200c325e35fd3a39b60259;hpb=50305b602c3953440af716137a56f50cd204375d;p=sbcl.git

diff --git a/src/assembly/x86/arith.lisp b/src/assembly/x86/arith.lisp
index 92c270a..392f67c 100644
--- a/src/assembly/x86/arith.lisp
+++ b/src/assembly/x86/arith.lisp
@@ -50,7 +50,7 @@
 		(inst jmp
 		      (make-ea :dword
 			       :disp (+ nil-value
-					(static-function-offset
+					(static-fun-offset
 					 ',(symbolicate "TWO-ARG-" fun)))))
 
 		DO-BODY
@@ -144,7 +144,7 @@
   (inst push eax)
   (inst mov ecx (fixnumize 1))	  ; arg count
   (inst jmp (make-ea :dword
-		     :disp (+ nil-value (static-function-offset '%negate))))
+		     :disp (+ nil-value (static-fun-offset '%negate))))
 
   FIXNUM
   (move res x)
@@ -198,8 +198,7 @@
 					; should be named parallelly.
 		(inst jmp (make-ea :dword
 				   :disp (+ nil-value
-					    (static-function-offset
-					     ',static-fn))))
+					    (static-fun-offset ',static-fn))))
 
 		INLINE-FIXNUM-COMPARE
 		(inst cmp x y)
@@ -255,7 +254,7 @@
   (inst push eax)
   (inst mov ecx (fixnumize 2))
   (inst jmp (make-ea :dword
-		     :disp (+ nil-value (static-function-offset 'eql))))
+		     :disp (+ nil-value (static-fun-offset 'eql))))
 
   RETURN-T
   (load-symbol res t)
@@ -296,7 +295,7 @@
   (inst push eax)
   (inst mov ecx (fixnumize 2))
   (inst jmp (make-ea :dword
-		     :disp (+ nil-value (static-function-offset 'two-arg-=))))
+		     :disp (+ nil-value (static-fun-offset 'two-arg-=))))
 
   RETURN-T
   (load-symbol res t))