diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-06 00:10:11 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-07-06 00:10:11 +0200 |
| commit | c60c37073ee1a34fe40cc26723c06b779fbdf932 (patch) | |
| tree | 98bc8c99f90ac265a4f809d29db13135900bd942 /MLKPackage.m | |
| parent | 82fa3c361b7ca68726926d3cef744cbb41c1ea29 (diff) | |
Export standard special variable names from the COMMON-LISP package.
Diffstat (limited to 'MLKPackage.m')
| -rw-r--r-- | MLKPackage.m | 45 |
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]; } |