summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--struct.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/struct.c b/struct.c
index ccdb939f..95b72b9f 100644
--- a/struct.c
+++ b/struct.c
@@ -1889,7 +1889,10 @@ val slot_types(val slot)
val static_slot_types(val slot)
{
- return gethash(static_slot_type_hash, slot);
+ uses_or2;
+ return or2(gethash(static_slot_type_hash, slot),
+ if2(lisplib_try_load(slot),
+ gethash(static_slot_type_hash, slot)));
}
val slot_type_reg(val slot, val strct)
@@ -1909,7 +1912,7 @@ val static_slot_type_reg(val slot, val strct)
val typelist = gethash(static_slot_type_hash, slot);
if (!memq(strct, typelist)) {
- sethash(slot_type_hash, slot, cons(strct, typelist));
+ sethash(static_slot_type_hash, slot, cons(strct, typelist));
uw_purge_deferred_warning(cons(slot_s, slot));
}