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

Ack was already defined.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-07-02 23:12:10 +02:00
parent e0d4aea4e8
commit bb2c54296d
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/main.d
View file

@ -530,10 +530,9 @@ cl_boot(int argc, char **argv)
int code;
} extra_names[] = { { "Null", 0 },
{ "Linefeed", 10 },
{ "Ack", 1 },
{ "Bell", 7 },
{ "Escape", 27 } };
for (i = 0; i < 5; i++) {
for (i = 0; i < 4; i++) {
cl_object name = make_constant_base_string(extra_names[i].name);
ecl_sethash(name, aux, MAKE_FIXNUM(extra_names[i].code));
}