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

Add more symbols to src/c/symbols_list.h, and resolve associated conflicts.

Browse source
This commit is contained in:
jjgarcia 2003-04-28 09:25:58 +00:00
parent 757572ca7f
commit f20736084b
19 changed files with 99 additions and 56 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/instance.d
View file

@ -16,7 +16,7 @@
#include "ecl.h"
cl_object
cl_allocate_instance(cl_object clas, int size)
ecl_allocate_instance(cl_object clas, int size)
{
cl_object x = cl_alloc_instance(size);
int i;
@ -27,12 +27,12 @@ cl_allocate_instance(cl_object clas, int size)
}
cl_object
si_allocate_instance(cl_object clas, cl_object size)
si_allocate_raw_instance(cl_object clas, cl_object size)
{
if (type_of(clas) != t_instance)
FEwrong_type_argument(@'instance', clas);
@(return cl_allocate_instance(clas, fixnnint(size)))
@(return ecl_allocate_instance(clas, fixnnint(size)))
}
/* corr is a list of (newi . oldi) describing which of the new slots