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

Additional character names, for compatibility with older versions.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-02 23:08:33 +02:00
parent 1531a8b36e
commit e0d4aea4e8
1 changed files with 13 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

16
src/c/main.d
View file

@ -524,9 +524,19 @@ cl_boot(int argc, char **argv)
/* Linefeed is redundant with one of the names given
* in iso_latin_names.h, but it can not be associated
* to the code 10, because the default name must be
* Newline. */
cl_object name = make_constant_base_string("Linefeed");
ecl_sethash(name, aux, MAKE_FIXNUM(10));
* Newline. Similar to the other codes. */
static struct {
const char *name;
int code;
} extra_names[] = { { "Null", 0 },
{ "Linefeed", 10 },
{ "Ack", 1 },
{ "Bell", 7 },
{ "Escape", 27 } };
for (i = 0; i < 5; i++) {
cl_object name = make_constant_base_string(extra_names[i].name);
ecl_sethash(name, aux, MAKE_FIXNUM(extra_names[i].code));
}
}
/*