From ae92d1356218c120e44766433c68195ec2880e8a Mon Sep 17 00:00:00 2001
From: Marius Gerbershagen <marius.gerbershagen@gmail.com>
Date: Thu, 5 Mar 2026 19:57:37 +0100
Subject: [PATCH] find-class: fix bug when searching compiler env

Environment records can be atoms.
---
 src/c/clos/instance.d | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/c/clos/instance.d b/src/c/clos/instance.d
index 198f9fe8e..54bb496c0 100644
--- a/src/c/clos/instance.d
+++ b/src/c/clos/instance.d
@@ -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;
         }