summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--MLKPackage.m45
1 files changed, 45 insertions, 0 deletions
diff --git a/MLKPackage.m b/MLKPackage.m
index bb6e2db..1e445b3 100644
--- a/MLKPackage.m
+++ b/MLKPackage.m
@@ -101,6 +101,51 @@ static NSMutableDictionary *packages = nil;
[sys export:[sys intern:@"LIST"]];
[sys export:[sys intern:@"MACROEXPAND-1"]];
+ [cl export:[cl intern:@"*BREAK-ON-SIGNALS*"]];
+ [cl export:[cl intern:@"*COMPILE-FILE-PATHNAME*"]];
+ [cl export:[cl intern:@"*COMPILE-FILE-TRUENAME*"]];
+ [cl export:[cl intern:@"*COMPILE-PRINT*"]];
+ [cl export:[cl intern:@"*COMPILE-VERBOSE*"]];
+ [cl export:[cl intern:@"*DEBUG-IO*"]];
+ [cl export:[cl intern:@"*DEBUGGER-HOOK*"]];
+ [cl export:[cl intern:@"*DEFAULT-PATHNAME-DEFAULTS*"]];
+ [cl export:[cl intern:@"*ERROR-OUTPUT*"]];
+ [cl export:[cl intern:@"*FEATURES*"]];
+ [cl export:[cl intern:@"*GENSYM-COUNTER*"]];
+ [cl export:[cl intern:@"*LOAD-PATHNAME*"]];
+ [cl export:[cl intern:@"*LOAD-PRINT*"]];
+ [cl export:[cl intern:@"*LOAD-TRUENAME*"]];
+ [cl export:[cl intern:@"*LOAD-VERBOSE*"]];
+ [cl export:[cl intern:@"*MACROEXPAND-HOOK*"]];
+ [cl export:[cl intern:@"*MODULES*"]];
+ [cl export:[cl intern:@"*PACKAGE*"]];
+ [cl export:[cl intern:@"*PRINT-ARRAY*"]];
+ [cl export:[cl intern:@"*PRINT-BASE*"]];
+ [cl export:[cl intern:@"*PRINT-CASE*"]];
+ [cl export:[cl intern:@"*PRINT-CIRCLE*"]];
+ [cl export:[cl intern:@"*PRINT-ESCAPE*"]];
+ [cl export:[cl intern:@"*PRINT-GENSYM*"]];
+ [cl export:[cl intern:@"*PRINT-LENGTH*"]];
+ [cl export:[cl intern:@"*PRINT-LEVEL*"]];
+ [cl export:[cl intern:@"*PRINT-LINES*"]];
+ [cl export:[cl intern:@"*PRINT-MISER-WIDTH*"]];
+ [cl export:[cl intern:@"*PRINT-PPRINT-DISPATCH*"]];
+ [cl export:[cl intern:@"*PRINT-PRETTY*"]];
+ [cl export:[cl intern:@"*PRINT-RADIX*"]];
+ [cl export:[cl intern:@"*PRINT-READABLY*"]];
+ [cl export:[cl intern:@"*PRINT-RIGHT-MARGIN*"]];
+ [cl export:[cl intern:@"*QUERY-IO*"]];
+ [cl export:[cl intern:@"*RANDOM-STATE*"]];
+ [cl export:[cl intern:@"*READ-BASE*"]];
+ [cl export:[cl intern:@"*READ-DEFAULT-FLOAT-FORMAT*"]];
+ [cl export:[cl intern:@"*READ-EVAL*"]];
+ [cl export:[cl intern:@"*READ-SUPPRESS*"]];
+ [cl export:[cl intern:@"*READTABLE*"]];
+ [cl export:[cl intern:@"*STANDARD-INPUT*"]];
+ [cl export:[cl intern:@"*STANDARD-OUTPUT*"]];
+ [cl export:[cl intern:@"*TERMINAL-IO*"]];
+ [cl export:[cl intern:@"*TRACE-OUTPUT* "]];
+
[tlUser usePackage:clUser];
}