Add class MLKInterpreter.

1 files changed, 15 insertions, 0 deletions

diff --git a/MLKDynamicContext.m b/MLKDynamicContext.m
index 87a88cc..83359cb 100644
--- a/MLKDynamicContext.m
+++ b/MLKDynamicContext.m
@@ -59,12 +59,27 @@ static MLKDynamicContext *global_context;
                                    nicknames:[NSSet setWithObject:@"CL-USER"]];
   MLKPackage *keyword = [MLKPackage packageWithName:@"KEYWORD"
                                     nicknames:[NSSet set]];
+  MLKPackage *sys = [MLKPackage packageWithName:@"TOILET-SYSTEM"
+                                nicknames:[NSSet setWithObjects:
+                                                   @"TL-SYS", nil]];
+  MLKPackage *toilet = [MLKPackage packageWithName:@"TOILET-LISP"
+                                   nicknames:[NSSet setWithObjects:
+                                                      @"TL", @"TOILET", nil]];
+  MLKPackage *tlUser = [MLKPackage packageWithName:@"TOILET-LISP-USER"
+                                   nicknames:[NSSet setWithObjects:
+                                                      @"TL-USER",
+                                                      @"TOILET-USER",
+                                                      nil]];
   MLKSymbol *t = [cl intern:@"T"];
   MLKReadtable *readtable = [[MLKReadtable alloc] init];
   unichar ch;
 
   id NIL = [NSNull null];
 
+  [sys intern:@"%DEFMACRO"];
+  [tlUser usePackage:clUser];
+  [toilet import:nil];
+
   // Build the initial readtable.
   [readtable setSyntaxType:WHITESPACE forCharacter:'\t'];
   [readtable setConstituentTrait:INVALID forCharacter:'\t'];