From 2dbc9e8eb087972b8b18a186a20a28bc0cfc8a9b Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 6 Jul 2008 16:06:38 +0200 Subject: Implement EXPORT, SHADOW, and UNEXPORT. --- MLKPackage.m | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'MLKPackage.m') diff --git a/MLKPackage.m b/MLKPackage.m index 1e445b3..eace2a7 100644 --- a/MLKPackage.m +++ b/MLKPackage.m @@ -39,7 +39,8 @@ static NSMutableDictionary *packages = nil; nicknames:[NSSet setWithObject:@"CL-USER"]];; MLKPackage *sys = [MLKPackage packageWithName:@"TOILET-SYSTEM" nicknames:[NSSet setWithObjects: - @"TL-SYS", nil]]; + @"TL-SYS", @"SYSTEM", + @"SYS", nil]]; MLKPackage *toilet = [MLKPackage packageWithName:@"TOILET-LISP" nicknames:[NSSet setWithObjects: @"TL", @"TOILET", nil]]; @@ -100,6 +101,9 @@ static NSMutableDictionary *packages = nil; [sys export:[sys intern:@"DIVIDE"]]; [sys export:[sys intern:@"LIST"]]; [sys export:[sys intern:@"MACROEXPAND-1"]]; + [sys export:[sys intern:@"EXPORT"]]; + [sys export:[sys intern:@"SHADOW"]]; + [sys export:[sys intern:@"UNEXPORT"]]; [cl export:[cl intern:@"*BREAK-ON-SIGNALS*"]]; [cl export:[cl intern:@"*COMPILE-FILE-PATHNAME*"]]; -- cgit v1.2.3