Export standard special variable names from the COMMON-LISP package.

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];
 }