diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-02 23:42:21 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-02 23:42:21 +0200 |
commit | 226e1e2ddfdf84237a1b8caaab7a4114c70ca8f3 (patch) | |
tree | ddb022060d016263867cde462f5bbfffa3538bc0 /MLKDynamicContext.m | |
parent | 19113af941e79eb99d5a34b5913a5f827961d39b (diff) |
Add *SYSTEM-INITIALISED-P*.
Diffstat (limited to 'MLKDynamicContext.m')
-rw-r--r-- | MLKDynamicContext.m | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m index bf70929..87b8b9b 100644 --- a/MLKDynamicContext.m +++ b/MLKDynamicContext.m @@ -263,6 +263,9 @@ static MLKDynamicContext *global_context; // INIT(@"*TERMINAL-IO*", ); // INIT(@"*TRACE-OUTPUT* ", ); + [vars setObject:NIL forKey:[[MLKPackage findPackage:@"TOILET-SYSTEM"] + intern:@"*SYSTEM-INITIALISED-P*"]]; + global_context = [[self alloc] initWithParent:nil variables:vars handlers:nil |