From c60c37073ee1a34fe40cc26723c06b779fbdf932 Mon Sep 17 00:00:00 2001 From: Matthias Andreas Benkard Date: Sun, 6 Jul 2008 00:10:11 +0200 Subject: Export standard special variable names from the COMMON-LISP package. --- MLKPackage.m | 45 +++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 45 insertions(+) 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]; } -- cgit v1.2.3