From d243d6b091a0ab62fdbb3c9cdfd3d7ac83f37a65 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Wed, 30 Apr 2003 08:01:54 +0000
Subject: [PATCH] Fix inline expanders for = and /=.

---
 src/cmp/sysfun.lsp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp
index 95082e88a..c3c148653 100644
--- a/src/cmp/sysfun.lsp
+++ b/src/cmp/sysfun.lsp
@@ -610,10 +610,10 @@
 (REALPART (T) T)
 (IMAGPART (T) T)
 (= (T *) T NIL T
-	:inline-always ((t t) boolean nil nil "number_equalp(#0,#1)==0")
+	:inline-always ((t t) boolean nil nil "number_equalp(#0,#1)")
 	:inline-always ((fixnum-float fixnum-float) boolean nil nil "(#0)==(#1)"))
 (/= (T *) T nil t
-	:inline-always ((t t) boolean nil nil "number_equalp(#0,#1)!=0")
+	:inline-always ((t t) boolean nil nil "!number_equalp(#0,#1)")
 	:inline-always ((fixnum-float fixnum-float) boolean nil nil "(#0)!=(#1)"))
 (< (T *) T nil t
 	:inline-always ((t t) boolean nil nil "number_compare(#0,#1)<0")