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

src/c/gfun.d: CLOS:SET-FUNCALLABLE-INSTANCE-FUNCTION broke the value if SI:INSTANCE-SIG

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-11-27 20:18:00 +01:00
parent 9400d37101
commit 6fb3a2f063
2 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/CHANGELOG
View file

@ -75,6 +75,9 @@ ECL 9.11.1:
- FDEFINITION and SYMBOL-FUNCTION caused an incorrect error condition when
acting on NIL.
- CLOS:SET-FUNCALLABLE-INSTANCE-FUNCTION broke the value if SI:INSTANCE-SIG,
preventing any further access to the instance slots.
* Sockets:
- The socket option TCP_NODELAY option has been fixed: it was improperly using

2
src/c/gfun.d
View file

@ -60,6 +60,8 @@ reshape_instance(cl_object x, int delta)
{
cl_fixnum size = x->instance.length + delta;
cl_object aux = ecl_allocate_instance(CLASS_OF(x), size);
/* Except for the different size, this must match si_copy_instance */
aux->instance.sig = x->instance.sig;
memcpy(aux->instance.slots, x->instance.slots,
(delta < 0 ? aux->instance.length : x->instance.length) *
sizeof(cl_object));