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

Fixed typo

Browse source
This commit is contained in:
jjgarcia 2004-01-12 13:50:40 +00:00
parent 19d3e6ace5
commit 90174a13e1
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/hash.d
View file

@ -441,7 +441,7 @@ cl__make_hash_table(cl_object test, cl_object size, cl_object rehash_size,
hsize = fix(size);
t = type_of(rehash_size);
if ((t != t_fixnum && t != t_shortfloat && t != t_longfloat) ||
(number_compare(rehash_size, MAKE_FIXNUM(1)) < 0))
(number_compare(rehash_size, MAKE_FIXNUM(1)) < 0)) {
FEerror("~S is an illegal hash-table rehash-size.",
1, rehash_size);
}