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

Various minor fixes, and an important set of changes to teach the compiler

Browse source 
and the interpreter to understand (SETF fname) function names, and to handle
them without creating auxiliary symbols.
This commit is contained in:
jjgarcia 2003-04-28 15:55:22 +00:00
parent 057ff71e6a
commit c2aa136143
51 changed files with 1334 additions and 1194 deletions
Download patch file Download diff file Expand all files Collapse all files

13
src/c/instance.d
View file

@ -182,3 +182,16 @@ si_sl_makunbound(cl_object x, cl_object index)
x->instance.slots[i] = OBJNULL;
@(return x)
}
cl_object
ecl_copy_instance(cl_object x)
{
cl_object y;
if (type_of(x) != t_instance)
FEwrong_type_argument(@'instance', x);
y = ecl_allocate_instance(x->instance.clas, x->instance.length);
memcpy(y->instance.slots, x->instance.slots,
x->instance.length * sizeof(cl_object));
@(return y)
}