mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-09 14:40:37 -07:00
Code Issues Projects Releases Packages Wiki Activity

find-class: fix bug when searching compiler env

Browse source 
Environment records can be atoms.
This commit is contained in:
Marius Gerbershagen 2026-03-05 19:57:37 +01:00
parent fcddd9c175
commit ae92d13562
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/c/clos/instance.d
View file

@ -308,7 +308,8 @@ si_copy_instance(cl_object x)
loop_for_in(env) {
if (ECL_CONSP(env)) {
cl_object record = ECL_CONS_CAR(env);
if (ecl_car(record) == @':type' && ecl_cadr(record) == name && ECL_INSTANCEP(ecl_caddr(record))) {
if (ECL_CONSP(record) && ecl_car(record) == @':type'
&& ecl_cadr(record) == name && ECL_INSTANCEP(ecl_caddr(record))) {
class = ecl_caddr(record);
break;
}