diff options
author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-06 16:06:38 +0200 |
---|---|---|
committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-06 16:06:38 +0200 |
commit | 2dbc9e8eb087972b8b18a186a20a28bc0cfc8a9b (patch) | |
tree | 1451add993d692d9223753d9c73b795e26141a93 /MLKPackage.m | |
parent | cf641ee9b6dcfa62ccfdbb2afd53a45ae52abcd0 (diff) |
Implement EXPORT, SHADOW, and UNEXPORT.
Diffstat (limited to 'MLKPackage.m')
-rw-r--r-- | MLKPackage.m | 6 |
1 files changed, 5 insertions, 1 deletions
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*"]]; |