From 226e1e2ddfdf84237a1b8caaab7a4114c70ca8f3 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Sat, 2 Aug 2008 23:42:21 +0200
Subject: Add *SYSTEM-INITIALISED-P*.

---
 MLKDynamicContext.m | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'MLKDynamicContext.m')

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
-- 
cgit v1.2.3