summaryrefslogtreecommitdiffstats
path: root/eval.c
diff options
context:
space:
mode:
Diffstat (limited to 'eval.c')
-rw-r--r--eval.c3
1 files changed, 2 insertions, 1 deletions
diff --git a/eval.c b/eval.c
index 5b7065e4..f3b94211 100644
--- a/eval.c
+++ b/eval.c
@@ -442,7 +442,8 @@ val lookup_fun(val env, val sym)
val type = or2(find_struct_type(strct),
if2(lisplib_try_load(strct),
find_struct_type(strct)));
- return if2(type, cons(sym, static_slot(type, slot)));
+ return if2(and2(type, static_slot_p(type, slot)),
+ cons(sym, static_slot(type, slot)));
} else if (car(sym) == macro_s) {
return lookup_mac(nil, cadr(sym));
}