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

Fixed typo

Browse source
This commit is contained in:
jjgarcia 2003-10-30 16:28:43 +00:00
parent d44bc4ae09
commit 3802c872ef
1 changed files with 1 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/alloc_2.d
View file

@ -35,7 +35,7 @@ finalize(cl_object o, cl_object data)
CL_NEWENV_BEGIN {
switch (type_of(o)) {
#ifdef ENABLE_DLOPEN
case t_codeblock: {
case t_codeblock:
cl_mapc(2, @'si::unlink-symbol', o->cblock.links);
if (o->cblock.handle != NULL) {
printf("\n;;; Freeing library %s\n", o->cblock.name?
@ -47,7 +47,6 @@ finalize(cl_object o, cl_object data)
#endif
break;
#endif
}
case t_stream:
if (o->stream.file != NULL)
fclose(o->stream.file);