mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-10 11:12:58 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix inline expanders for = and /=.

Browse source
This commit is contained in:
jjgarcia 2003-04-30 08:01:54 +00:00
parent b9f17d926b
commit d243d6b091
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/sysfun.lsp
View file

@ -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")