X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fassembly%2Falpha%2Farith.lisp;h=80094f288571798cbadea1090db0ebe2bdef29a7;hb=69d60b456b07a0256f08df0d02484f361ce5737c;hp=fad4209fb5284c4009b6fbf165b44650b7a2f22f;hpb=8f4ef01b8c9930d7dd0a56a96845a6d84ca5774d;p=sbcl.git

diff --git a/src/assembly/alpha/arith.lisp b/src/assembly/alpha/arith.lisp
index fad4209..80094f2 100644
--- a/src/assembly/alpha/arith.lisp
+++ b/src/assembly/alpha/arith.lisp
@@ -408,7 +408,7 @@
   (lisp-return lra lip :offset 2)
 
   DO-STATIC-FN
-  (inst ldl lip (static-fun-offset 'two-arg-=) null-tn)
+  (inst ldl lip (static-fun-offset 'two-arg-/=) null-tn)
   (inst li (fixnumize 2) nargs)
   (inst move cfp-tn ocfp)
   (inst move csp-tn cfp-tn)