diff options
Diffstat (limited to 'MLKDynamicContext.m')
| -rw-r--r-- | MLKDynamicContext.m | 15 |
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']; |