summaryrefslogtreecommitdiff
path: root/MLKDynamicContext.m
diff options
context:
space:
mode:
Diffstat (limited to 'MLKDynamicContext.m')
-rw-r--r--MLKDynamicContext.m3
1 files changed, 3 insertions, 0 deletions
diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m
index 083fc14..ed01263 100644
--- a/MLKDynamicContext.m
+++ b/MLKDynamicContext.m
@@ -265,6 +265,9 @@ static MLKDynamicContext *global_context;
[vars setObject:NIL forKey:[[MLKPackage findPackage:@"TOILET-SYSTEM"]
intern:@"*SYSTEM-INITIALISED-P*"]];
+ [vars setObject:[MLKInteger integerWithInt:0]
+ forKey:[[MLKPackage findPackage:@"TOILET-SYSTEM"]
+ intern:@"*LOAD-LEVEL*"]];
global_context = [[self alloc] initWithParent:nil
variables:vars