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

Change obsolete comment.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-17 23:36:44 +02:00
parent 627ee2e6b7
commit 1e82630de0
1 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/main.d
View file

@ -500,12 +500,14 @@ cl_boot(int argc, char **argv)
#endif
/*
* Initialize Unicode character database and character names.
* Initialize Unicode character database.
*/
read_char_database();
/* FIXME! This is a hack! We use EQUALP hashes because we know that
* the characters in this table will not be alphanumeric.
/*
* Load character names. The following hash table is a map
* from names to character codes and viceversa. Note that we
* need EQUALP because it has to be case insensitive.
*/
cl_core.char_names = aux =
cl__make_hash_table(@'equalp', MAKE_FIXNUM(128), /* size */