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

Fixed typo.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-12 22:08:41 +02:00
parent f9b12dde02
commit 2cb472ed09
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/predicate.d
View file

@ -275,7 +275,7 @@ cl_eq(cl_object x, cl_object y)
case 6: if (c[5] != d[5]) return 0; \
case 5: if (c[4] != d[4]) return 0; \
case 4: if (c[3] != d[3]) return 0; \
case 3: if (c[1] != d[2]) return 0; \
case 3: if (c[2] != d[2]) return 0; \
case 2: if (c[1] != d[1]) return 0; \
default: return (c[0] == d[0]); \
} }