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

CLASS-OF now works with weak pointers.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-09-03 16:57:04 +02:00
parent 00a5b33e01
commit d60c758832
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/instance.d
View file

@ -254,7 +254,8 @@ enum ecl_built_in_classes {
ECL_BUILTIN_READTABLE,
ECL_BUILTIN_CODE_BLOCK,
ECL_BUILTIN_FOREIGN_DATA,
ECL_BUILTIN_FRAME
ECL_BUILTIN_FRAME,
ECL_BUILTIN_WEAK_POINTER
#ifdef ECL_THREADS
,
ECL_BUILTIN_PROCESS,
@ -356,6 +357,8 @@ cl_class_of(cl_object x)
index = ECL_BUILTIN_FOREIGN_DATA; break;
case t_frame:
index = ECL_BUILTIN_FRAME; break;
case t_weak_pointer:
index = ECL_BUILTIN_WEAK_POINTER; break;
default:
ecl_internal_error("not a lisp data object");
}