From a0470a134c0c6b6bca1d2ad00d7337d85844cd78 Mon Sep 17 00:00:00 2001 From: jjgarcia Date: Tue, 17 Sep 2002 14:53:46 +0000 Subject: [PATCH] Add more symbols from the CL package to symbols_list.h. --- src/c/symbols_list.h | 317 ++++++++++++++++++++++++++++++++++++++++- src/lsp/export.lsp | 332 ------------------------------------------- 2 files changed, 312 insertions(+), 337 deletions(-) diff --git a/src/c/symbols_list.h b/src/c/symbols_list.h index 9ff994001..98fb31b4b 100644 --- a/src/c/symbols_list.h +++ b/src/c/symbols_list.h @@ -25,10 +25,24 @@ SW("T", CL_ORDINARY, NULL), /* LISP PACKAGE */ SW("&ALLOW-OTHER-KEYS", CL_ORDINARY, &clSAallow_other_keys), SW("&AUX", CL_ORDINARY, &clSAaux), +SW("&BODY", CL_ORDINARY, NULL), +SW("&ENVIRONMENT", CL_ORDINARY, NULL), SW("&KEY", CL_ORDINARY, &clSAkey), SW("&OPTIONAL", CL_ORDINARY, &clSAoptional), SW("&REST", CL_ORDINARY, &clSArest), -SW("*", CL_ORDINARY, &clV), +SW("&WHOLE", CL_ORDINARY, NULL), +SW("+", CL_SPECIAL, NULL), +SW("++", CL_SPECIAL, NULL), +SW("+++", CL_SPECIAL, NULL), +SW("-", CL_SPECIAL, NULL), +SW("*", CL_SPECIAL, &clV), +SW("**", CL_SPECIAL, NULL), +SW("***", CL_SPECIAL, NULL), +SW("/", CL_SPECIAL, &clV), +SW("//", CL_SPECIAL, NULL), +SW("///", CL_SPECIAL, NULL), +SW("*COMPILE-PRINT*", CL_SPECIAL, NULL), +SW("*COMPILE-VERBOSE*", CL_SPECIAL, NULL), SW("*DEBUG-IO*", CL_SPECIAL, &clVdebug_io), SW("*DEFAULT-PATHNAME-DEFAULTS*", CL_SPECIAL, &clVdefault_pathname_defaults), SW("*ERROR-OUTPUT*", CL_SPECIAL, &clVerror_output), @@ -37,6 +51,7 @@ SW("*GENSYM-COUNTER*", CL_SPECIAL, &clVgensym_counter), SW("*LOAD-PRINT*", CL_SPECIAL, &clVload_print), SW("*LOAD-VERBOSE*", CL_SPECIAL, &clVload_verbose), SW("*MACROEXPAND-HOOK*", CL_SPECIAL, &clVmacroexpand_hook), +SW("*MODULES*", CL_SPECIAL, NULL), SW("*PACKAGE*", CL_SPECIAL, &clVpackage), SW("*PRINT-ARRAY*", CL_SPECIAL, &clVprint_array), SW("*PRINT-BASE*", CL_SPECIAL, &clVprint_base), @@ -58,100 +73,298 @@ SW("*STANDARD-INPUT*", CL_SPECIAL, &clVstandard_input), SW("*STANDARD-OUTPUT*", CL_SPECIAL, &clVstandard_output), SW("*TERMINAL-IO*", CL_SPECIAL, &clVterminal_io), SW("*TRACE-OUTPUT*", CL_SPECIAL, &clVtrace_output), +SW("ABS", CL_ORDINARY, NULL), +SW("ACOS", CL_ORDINARY, NULL), +SW("ACOSH", CL_ORDINARY, NULL), +SW("ADJUST-ARRAY", CL_ORDINARY, NULL), +SW("ADJUSTABLE-ARRAY-P", CL_ORDINARY, NULL), SW("AND", CL_ORDINARY, &clSand), SW("APPEND", CL_ORDINARY, &clSappend), SW("APPLY", CL_ORDINARY, &clSapply), +SW("APROPOS", CL_ORDINARY, NULL), +SW("APROPOS-LIST", CL_ORDINARY, NULL), SW("ARITHMETIC-ERROR", CL_ORDINARY, &clSarithmetic_error), SW("ARRAY", CL_ORDINARY, &clSarray), +SW("ARRAY-DIMENSION", CL_ORDINARY, NULL), +SW("ARRAY-DIMENSIONS", CL_ORDINARY, NULL), +SW("ARRAY-DIMENSION-LIMIT", CL_ORDINARY, NULL), +SW("ARRAY-ELEMENT-TYPE", CL_ORDINARY, NULL), +SW("ARRAY-HAS-FILL-POINTER-P", CL_ORDINARY, NULL), +SW("ARRAY-IN-BOUNDS-P", CL_ORDINARY, NULL), +SW("ARRAY-RANK", CL_ORDINARY, NULL), +SW("ARRAY-ROW-MAJOR-INDEX", CL_ORDINARY, NULL), +SW("ASIN", CL_ORDINARY, NULL), +SW("ASINH", CL_ORDINARY, NULL), +SW("ASSERT", CL_ORDINARY, NULL), +SW("ATAN", CL_ORDINARY, NULL), +SW("ATANH", CL_ORDINARY, NULL), SW("BASE-CHAR", CL_ORDINARY, &clSbase_char), +SW("BASE-STRING", CL_ORDINARY, NULL), SW("BIGNUM", CL_ORDINARY, &clSbignum), SW("BIT", CL_ORDINARY, &clSbit), +SW("BIT-AND", CL_ORDINARY, NULL), +SW("BIT-ANDC1", CL_ORDINARY, NULL), +SW("BIT-ANDC2", CL_ORDINARY, NULL), +SW("BIT-EQV", CL_ORDINARY, NULL), +SW("BIT-IOR", CL_ORDINARY, NULL), +SW("BIT-NAND", CL_ORDINARY, NULL), +SW("BIT-NOR", CL_ORDINARY, NULL), +SW("BIT-NOT", CL_ORDINARY, NULL), +SW("BIT-ORC1", CL_ORDINARY, NULL), +SW("BIT-ORC2", CL_ORDINARY, NULL), SW("BIT-VECTOR", CL_ORDINARY, &clSbit_vector), +SW("BIT-XOR", CL_ORDINARY, NULL), SW("BLOCK", CL_ORDINARY, &clSblock), +SW("BOOLEAN", CL_ORDINARY, NULL), +SW("BREAK", CL_ORDINARY, NULL), SW("BROADCAST-STREAM", CL_ORDINARY, &clSbroadcast_stream), -SW("BUILT-IN-CLASS", CL_ORDINARY, &clSbuilt_in_class), +SW("BYTE", CL_ORDINARY, NULL), SW("BYTE8", CL_ORDINARY, &clSbyte8), +SW("BYTE-POSITION", CL_ORDINARY, NULL), +SW("BYTE-SIZE", CL_ORDINARY, NULL), +SW("CCASE", CL_ORDINARY, NULL), +SW("CERROR", CL_ORDINARY, NULL), SW("CELL-ERROR", CL_ORDINARY, &clScell_error), +SW("CHAR", CL_ORDINARY, NULL), SW("CHARACTER", CL_ORDINARY, &clScharacter), -SW("CLASS", CL_ORDINARY, &clSclass), +SW("CHECK-TYPE", CL_ORDINARY, NULL), +SW("CIS", CL_ORDINARY, NULL), +SW("COERCE", CL_ORDINARY, NULL), SW("COMMON", CL_ORDINARY, &clScommon), +SW("COMPILATION-SPEED", CL_ORDINARY, NULL), +SW("CONCATENATE", CL_ORDINARY, NULL), +SW("CONSTANTLY", CL_ORDINARY, NULL), SW("COMPILE", CL_ORDINARY, &clScompile), +SW("COMPILE-FILE", CL_ORDINARY, NULL), +SW("COMPILE-FILE-PATHNAME", CL_ORDINARY, NULL), SW("COMPILED-FUNCTION", CL_ORDINARY, &clScompiled_function), +SW("COMPILER-MACRO-FUNCTION", CL_ORDINARY, NULL), +SW("COMPLEMENT", CL_ORDINARY, NULL), SW("COMPLEX", CL_ORDINARY, &clScomplex), SW("CONCATENATED-STREAM", CL_ORDINARY, &clSconcatenated_stream), SW("CONDITION", CL_ORDINARY, &clScondition), SW("CONS", CL_ORDINARY, &clScons), +SW("COSH", CL_ORDINARY, NULL), +SW("COUNT", CL_ORDINARY, NULL), +SW("COUNT-IF", CL_ORDINARY, NULL), +SW("COUNT-IF-NOT", CL_ORDINARY, NULL), +SW("CTYPECASE", CL_ORDINARY, NULL), +SW("DEBUG", CL_ORDINARY, NULL), +SW("DECF", CL_ORDINARY, NULL), +SW("DECLAIM", CL_ORDINARY, NULL), SW("DECLARE", CL_ORDINARY, &clSdeclare), +SW("DECLARATION", CL_ORDINARY, NULL), +SW("DECODE-UNIVERSAL-TIME", CL_ORDINARY, NULL), +SW("DEFCONSTANT", CL_ORDINARY, NULL), +SW("DEFINE-COMPILER-MACRO", CL_ORDINARY, NULL), +SW("DEFINE-MODIFY-MACRO", CL_ORDINARY, NULL), +SW("DEFINE-SETF-EXPANDER", CL_ORDINARY, NULL), +SW("DEFINE-SYMBOL-MACRO", CL_ORDINARY, NULL), SW("DEFMACRO", CL_ORDINARY, NULL), +SW("DEFPACKAGE", CL_ORDINARY, NULL), +SW("DEFPARAMETER", CL_ORDINARY, NULL), +SW("DEFSETF", CL_ORDINARY, NULL), +SW("DEFSTRUCT", CL_ORDINARY, NULL), +SW("DEFTYPE", CL_ORDINARY, NULL), SW("DEFUN", CL_ORDINARY, NULL), +SW("DEFVAR", CL_ORDINARY, NULL), +SW("DELETE", CL_ORDINARY, NULL), +SW("DELETE-DUPLICATES", CL_ORDINARY, NULL), +SW("DELETE-IF", CL_ORDINARY, NULL), +SW("DELETE-IF-NOT", CL_ORDINARY, NULL), +SW("DEPOSIT-FIELD", CL_ORDINARY, NULL), +SW("DESCRIBE", CL_ORDINARY, NULL), +SW("DESTRUCTURING-BIND", CL_ORDINARY, NULL), +SW("DISASSEMBLE", CL_ORDINARY, NULL), SW("DISPATCH-FUNCTION", CL_ORDINARY, &clSdispatch_function), SW("DIVISION-BY-ZERO", CL_ORDINARY, &clSdivision_by_zero), +SW("DO", CL_ORDINARY, NULL), +SW("DO*", CL_ORDINARY, NULL), +SW("DO-ALL-SYMBOLS", CL_ORDINARY, NULL), +SW("DO-EXTERNAL-SYMBOLS", CL_ORDINARY, NULL), +SW("DO-SYMBOLS", CL_ORDINARY, NULL), +SW("DOCUMENTATION", CL_ORDINARY, NULL), +SW("DOLIST", CL_ORDINARY, NULL), SW("DOUBLE-FLOAT", CL_ORDINARY, &clSdouble_float), +SW("DPB", CL_ORDINARY, NULL), +SW("DRIBBLE", CL_ORDINARY, NULL), +SW("ECASE", CL_ORDINARY, NULL), SW("ECHO-STREAM", CL_ORDINARY, &clSecho_stream), +SW("ED", CL_ORDINARY, NULL), +SW("EIGHTH", CL_ORDINARY, NULL), +SW("ENCODE-UNIVERSAL-TIME", CL_ORDINARY, NULL), SW("END-OF-FILE", CL_ORDINARY, &clSend_of_file), SW("EQ", CL_ORDINARY, &clSeq), SW("EQL", CL_ORDINARY, &clSeql), SW("EQUAL", CL_ORDINARY, &clSequal), SW("ERROR", CL_ORDINARY, &clSerror), +SW("ETYPECASE", CL_ORDINARY, NULL), SW("EVAL", CL_ORDINARY, &clSeval), +SW("EVAL-WHEN", CL_ORDINARY, NULL), +SW("EVERY", CL_ORDINARY, NULL), SW("EXTENDED-CHAR", CL_ORDINARY, &clSextended_char), +SW("FCEILING", CL_ORDINARY, NULL), +SW("FFLOOR", CL_ORDINARY, NULL), +SW("FIFTH", CL_ORDINARY, NULL), SW("FILE-ERROR", CL_ORDINARY, &clSfile_error), SW("FILE-STREAM", CL_ORDINARY, &clSfile_stream), +SW("FILL", CL_ORDINARY, NULL), +SW("FILL-POINTER", CL_ORDINARY, NULL), +SW("FIND", CL_ORDINARY, NULL), +SW("FIND-ALL-SYMBOLS", CL_ORDINARY, NULL), +SW("FIND-IF", CL_ORDINARY, NULL), +SW("FIND-IF-NOT", CL_ORDINARY, NULL), +SW("FIRST", CL_ORDINARY, NULL), SW("FIXNUM", CL_ORDINARY, &clSfixnum), SW("FLOAT", CL_ORDINARY, &clSfloat), SW("FLOATING-POINT-INEXACT", CL_ORDINARY, &clSfloating_point_inexact), SW("FLOATING-POINT-INVALID-OPERATION", CL_ORDINARY, &clSfloating_point_invalid_operation), SW("FLOATING-POINT-OVERFLOW", CL_ORDINARY, &clSfloating_point_overflow), SW("FLOATING-POINT-UNDERFLOW", CL_ORDINARY, &clSfloating_point_underflow), +SW("FORMAT", CL_ORDINARY, NULL), +SW("FOURTH", CL_ORDINARY, NULL), +SW("FROUND", CL_ORDINARY, NULL), +SW("FTRUNCATE", CL_ORDINARY, NULL), +SW("FTYPE", CL_ORDINARY, NULL), SW("FUNCALL", CL_ORDINARY, &clSfuncall), SW("FUNCTION", CL_ORDINARY, &clSfunction), +SW("GET-DECODED-TIME", CL_ORDINARY, NULL), +SW("GET-SETF-EXPANSION", CL_ORDINARY, NULL), +SW("GET-UNIVERSAL-TIME", CL_ORDINARY, NULL), +SW("GETF", CL_ORDINARY, NULL), SW("HASH-TABLE", CL_ORDINARY, &clShash_table), +SW("IGNORE", CL_ORDINARY, NULL), +SW("IN-PACKAGE", CL_ORDINARY, NULL), +SW("INCF", CL_ORDINARY, NULL), +SW("INLINE", CL_ORDINARY, NULL), +SW("INSPECT", CL_ORDINARY, NULL), SW("INSTANCE", CL_ORDINARY, &clSinstance), SW("INTEGER", CL_ORDINARY, &clSinteger), SW("INTEGER8", CL_ORDINARY, &clSinteger8), +SW("INTERSECTION", CL_ORDINARY, NULL), +SW("ISQRT", CL_ORDINARY, NULL), SW("KEYWORD", CL_ORDINARY, &clSkeyword), SW("LAMBDA", CL_ORDINARY, &clSlambda), SW("LAMBDA-BLOCK", CL_ORDINARY, &clSlambda_block), +SW("LDB", CL_ORDINARY, NULL), +SW("LDB-TEST", CL_ORDINARY, NULL), +SW("LISP-IMPLEMENTATION-TYPE", CL_ORDINARY, NULL), SW("LIST", CL_ORDINARY, &clSlist), SW("LIST*", CL_ORDINARY, &clSlistX), SW("LOAD", CL_ORDINARY, &clSload), +SW("LOAD-TIME-VALUE", CL_ORDINARY, NULL), +SW("LOCALLY", CL_ORDINARY, NULL), +SW("LOGANDC1", CL_ORDINARY, NULL), +SW("LOGANDC2", CL_ORDINARY, NULL), SW("LOGICAL-PATHNAME", CL_ORDINARY, &clSlogical_pathname), +SW("LOGICAL-PATHNAME-TRANSLATIONS", CL_ORDINARY, NULL), +SW("LOGNAND", CL_ORDINARY, NULL), +SW("LOGNOR", CL_ORDINARY, NULL), +SW("LOGNOT", CL_ORDINARY, NULL), +SW("LOGORC1", CL_ORDINARY, NULL), +SW("LOGORC2", CL_ORDINARY, NULL), +SW("LOGTEST", CL_ORDINARY, NULL), +SW("LONG-SITE-NAME", CL_ORDINARY, NULL), SW("LONG-FLOAT", CL_ORDINARY, &clSlong_float), +SW("LOOP", CL_ORDINARY, NULL), +SW("LOOP-FINISH", CL_ORDINARY, NULL), +SW("MACHINE-INSTANCE", CL_ORDINARY, NULL), +SW("MACHINE-TYPE", CL_ORDINARY, NULL), +SW("MACHINE-VERSION", CL_ORDINARY, NULL), SW("MACRO", CL_ORDINARY, &clSmacro), +SW("MAKE-ARRAY", CL_ORDINARY, NULL), +SW("MAKE-SEQUENCE", CL_ORDINARY, NULL), +SW("MAP", CL_ORDINARY, NULL), +SW("MAP-INTO", CL_ORDINARY, NULL), +SW("MASK-FIELD", CL_ORDINARY, NULL), +SW("MERGE", CL_ORDINARY, NULL), SW("MEMBER", CL_ORDINARY, &clSmember), +SW("MISMATCH", CL_ORDINARY, NULL), SW("MOD", CL_ORDINARY, &clSmod), +SW("MULTIPLE-VALUE-SETQ", CL_ORDINARY, NULL), +SW("NINTERSECTION", CL_ORDINARY, NULL), +SW("NINTH", CL_ORDINARY, NULL), SW("NCONC", CL_ORDINARY, &clSnconc), SW("NOT", CL_ORDINARY, &clSnot), +SW("NOTANY", CL_ORDINARY, NULL), +SW("NOTEVERY", CL_ORDINARY, NULL), +SW("NOTINLINE", CL_ORDINARY, NULL), +SW("NSET-DIFFERENCE", CL_ORDINARY, NULL), +SW("NSET-EXCLUSIVE-OR", CL_ORDINARY, NULL), +SW("NSUBSTITUTE", CL_ORDINARY, NULL), +SW("NSUBSTITUTE-IF", CL_ORDINARY, NULL), +SW("NSUBSTITUTE-IF-NOT", CL_ORDINARY, NULL), SW("NULL", CL_ORDINARY, &clSnull), SW("NUMBER", CL_ORDINARY, &clSnumber), +SW("NUNION", CL_ORDINARY, NULL), +SW("OPEN", CL_ORDINARY, NULL), +SW("OPTIMIZE", CL_ORDINARY, NULL), SW("OR", CL_ORDINARY, &clSor), SW("OTHERWISE", CL_ORDINARY, &clSotherwise), SW("PACKAGE", CL_ORDINARY, &clSpackage), SW("PACKAGE-ERROR", CL_ORDINARY, &clSpackage_error), SW("PARSE-ERROR", CL_ORDINARY, &clSparse_error), SW("PATHNAME", CL_ORDINARY, &clSpathname), +SW("PHASE", CL_ORDINARY, NULL), SW("PLUSP", CL_ORDINARY, &clSplusp), +SW("POP", CL_ORDINARY, NULL), +SW("POSITION", CL_ORDINARY, NULL), +SW("POSITION-IF", CL_ORDINARY, NULL), +SW("POSITION-IF-NOT", CL_ORDINARY, NULL), +SW("PRIN1-TO-STRING", CL_ORDINARY, NULL), +SW("PRINC-TO-STRING", CL_ORDINARY, NULL), SW("PRINT-NOT-READABLE", CL_ORDINARY, &clSprint_not_readable), -SW("PRINT-OBJECT", CL_ORDINARY, &clSprint_object), +SW("PROCLAIM", CL_ORDINARY, NULL), +SW("PROG1", CL_ORDINARY, NULL), +SW("PROG2", CL_ORDINARY, NULL), +SW("PROG*", CL_ORDINARY, NULL), SW("PROGN", CL_ORDINARY, &clSprogn), SW("PROGRAM-ERROR", CL_ORDINARY, &clSprogram_error), +SW("PROVIDE", CL_ORDINARY, NULL), SW("PSETF", CL_ORDINARY, &clSpsetf), +SW("PUSH", CL_ORDINARY, NULL), +SW("PUSHNEW", CL_ORDINARY, NULL), SW("QUOTE", CL_ORDINARY, &clSquote), SW("RANDOM-STATE", CL_ORDINARY, &clSrandom_state), SW("RATIO", CL_ORDINARY, &clSratio), SW("RATIONAL", CL_ORDINARY, &clSrational), +SW("RATIONALIZE", CL_ORDINARY, NULL), +SW("READ-FROM-STRING", CL_ORDINARY, NULL), SW("READER-ERROR", CL_ORDINARY, &clSreader_error), SW("READTABLE", CL_ORDINARY, &clSreadtable), SW("REAL", CL_ORDINARY, &clSreal), +SW("REDUCE", CL_ORDINARY, NULL), +SW("REM", CL_ORDINARY, NULL), +SW("REMF", CL_ORDINARY, NULL), +SW("REMOVE", CL_ORDINARY, NULL), +SW("REMOVE-DUPLICATES", CL_ORDINARY, NULL), +SW("REMOVE-IF", CL_ORDINARY, NULL), +SW("REMOVE-IF-NOT", CL_ORDINARY, NULL), +SW("REPLACE", CL_ORDINARY, NULL), +SW("REQUIRE", CL_ORDINARY, NULL), +SW("ROTATEF", CL_ORDINARY, NULL), +SW("ROW-MAJOR-AREF", CL_ORDINARY, NULL), +SW("ROOM", CL_ORDINARY, NULL), +SW("SAFETY", CL_ORDINARY, NULL), SW("SATISFIES", CL_ORDINARY, &clSsatisfies), +SW("SBIT", CL_ORDINARY, NULL), +SW("SEARCH", CL_ORDINARY, NULL), +SW("SECOND", CL_ORDINARY, NULL), SW("SEQUENCE", CL_ORDINARY, &clSsequence), SW("SERIOUS-CONDITION", CL_ORDINARY, &clSserious_condition), +SW("SET-DIFFERENCE", CL_ORDINARY, NULL), +SW("SET-EXCLUSIVE-OR", CL_ORDINARY, NULL), SW("SETF", CL_ORDINARY, &clSsetf), +SW("SEVENTH", CL_ORDINARY, NULL), +SW("SHIFTF", CL_ORDINARY, NULL), SW("SHORT-FLOAT", CL_ORDINARY, &clSshort_float), +SW("SHORT-SITE-NAME", CL_ORDINARY, NULL), SW("SIGNED-BYTE", CL_ORDINARY, &clSsigned_byte), SW("SIGNED-CHAR", CL_ORDINARY, &clSsigned_char), SW("SIGNED-SHORT", CL_ORDINARY, &clSsigned_short), +SW("SIGNUM", CL_ORDINARY, NULL), SW("SIMPLE-ARRAY", CL_ORDINARY, &clSsimple_array), +SW("SIMPLE-BASE-STRING", CL_ORDINARY, NULL), SW("SIMPLE-BIT-VECTOR", CL_ORDINARY, &clSsimple_bit_vector), SW("SIMPLE-CONDITION", CL_ORDINARY, &clSsimple_condition), SW("SIMPLE-ERROR", CL_ORDINARY, &clSsimple_error), @@ -159,34 +372,128 @@ SW("SIMPLE-STRING", CL_ORDINARY, &clSsimple_string), SW("SIMPLE-TYPE-ERROR", CL_ORDINARY, &clSsimple_type_error), SW("SIMPLE-VECTOR", CL_ORDINARY, &clSsimple_vector), SW("SIMPLE-WARNING", CL_ORDINARY, &clSsimple_warning), +SW("SIN", CL_ORDINARY, NULL), SW("SINGLE-FLOAT", CL_ORDINARY, &clSsingle_float), +SW("SINH", CL_ORDINARY, NULL), +SW("SIXTH", CL_ORDINARY, NULL), +SW("SOFTWARE-TYPE", CL_ORDINARY, NULL), +SW("SOFTWARE-VERSION", CL_ORDINARY, NULL), +SW("SOME", CL_ORDINARY, NULL), +SW("SORT", CL_ORDINARY, NULL), +SW("SPACE", CL_ORDINARY, NULL), SW("SPECIAL", CL_ORDINARY, &clSspecial), +SW("SPECIAL-FORM-P", CL_ORDINARY, NULL), +SW("SPECIAL-OPERATOR-P", CL_ORDINARY, NULL), +SW("SPEED", CL_ORDINARY, NULL), +SW("STABLE-SORT", CL_ORDINARY, NULL), SW("STANDARD-CHAR", CL_ORDINARY, &clSstandard_char), +SW("STEP", CL_ORDINARY, NULL), SW("STORAGE-CONDITION", CL_ORDINARY, &clSstorage_condition), SW("STREAM", CL_ORDINARY, &clSstream), SW("STREAM-ERROR", CL_ORDINARY, &clSstream_error), SW("STRING", CL_ORDINARY, &clSstring), SW("STRING-STREAM", CL_ORDINARY, &clSstring_stream), SW("STRUCTURE", CL_ORDINARY, &clSstructure), -SW("STRUCTURE-OBJECT", CL_ORDINARY, &clSstructure_object), SW("STYLE-WARNING", CL_ORDINARY, &clSstyle_warning), +SW("SUBSETP", CL_ORDINARY, NULL), +SW("SUBSTITUTE", CL_ORDINARY, NULL), +SW("SUBSTITUTE-IF", CL_ORDINARY, NULL), +SW("SUBSTITUTE-IF-NOT", CL_ORDINARY, NULL), SW("SUBTYPEP", CL_ORDINARY, &clSsubtypep), SW("SYMBOL", CL_ORDINARY, &clSsymbol), +SW("SYMBOL-MACROLET", CL_ORDINARY, NULL), SW("SYNONYM-STREAM", CL_ORDINARY, &clSsynonym_stream), SW("TAG", CL_ORDINARY, &clStag), +SW("TAN", CL_ORDINARY, NULL), +SW("TANH", CL_ORDINARY, NULL), +SW("TENTH", CL_ORDINARY, NULL), +SW("THIRD", CL_ORDINARY, NULL), +SW("TIME", CL_ORDINARY, NULL), +SW("TRACE", CL_ORDINARY, NULL), SW("TWO-WAY-STREAM", CL_ORDINARY, &clStwo_way_stream), +SW("TYPE", CL_ORDINARY, NULL), SW("TYPE-ERROR", CL_ORDINARY, &clStype_error), +SW("TYPECASE", CL_ORDINARY, NULL), SW("TYPEP", CL_ORDINARY, &clStypep), SW("UNBOUND-SLOT", CL_ORDINARY, &clSunbound_slot), SW("UNBOUND-VARIABLE", CL_ORDINARY, &clSunbound_variable), SW("UNDEFINED-FUNCTION", CL_ORDINARY, &clSundefined_function), +SW("UNION", CL_ORDINARY, NULL), SW("UNSIGNED-BYTE", CL_ORDINARY, &clSunsigned_byte), SW("UNSIGNED-CHAR", CL_ORDINARY, &clSunsigned_char), SW("UNSIGNED-SHORT", CL_ORDINARY, &clSunsigned_short), +SW("UNTRACE", CL_ORDINARY, NULL), SW("VALUES", CL_ORDINARY, &clSvalues), +SW("VARIABLE", CL_ORDINARY, NULL), SW("VECTOR", CL_ORDINARY, &clSvector), +SW("VECTOR-POP", CL_ORDINARY, NULL), +SW("VECTOR-PUSH", CL_ORDINARY, NULL), +SW("VECTOR-PUSH-EXTEND", CL_ORDINARY, NULL), SW("WARN", CL_ORDINARY, &clSwarn), SW("WARNING", CL_ORDINARY, &clSwarning), +SW("WITH-INPUT-FROM-STRING", CL_ORDINARY, NULL), +SW("WITH-OPEN-FILE", CL_ORDINARY, NULL), +SW("WITH-OPEN-STREAM", CL_ORDINARY, NULL), +SW("WITH-OUTPUT-TO-STRING", CL_ORDINARY, NULL), +SW("WITH-STANDARD-IO-SYNTAX", CL_ORDINARY, NULL), +SW("WRITE-TO-STRING", CL_ORDINARY, NULL), +SW("Y-OR-N-P", CL_ORDINARY, NULL), +SW("YES-OR-NO-P", CL_ORDINARY, NULL), + +#ifdef CLOS +SW("ADD-METHOD", CL_ORDINARY, NULL), +SW("BUILT-IN-CLASS", CL_ORDINARY, &clSbuilt_in_class), +SW("CALL-NEXT-METHOD", CL_ORDINARY, NULL), +SW("CHANGE-CLASS", CL_ORDINARY, NULL), +SW("CLASS", CL_ORDINARY, &clSclass), +SW("CLASS-CHANGED", CL_ORDINARY, NULL), +SW("CLASS-NAME", CL_ORDINARY, NULL), +SW("CLASS-OF", CL_ORDINARY, NULL), +SW("DEFCLASS", CL_ORDINARY, NULL), +SW("DEFGENERIC", CL_ORDINARY, NULL), +SW("DEFINE-METHOD-COMBINATION", CL_ORDINARY, NULL), +SW("DEFMETHOD", CL_ORDINARY, NULL), +SW("DESCRIBE-OBJECT", CL_ORDINARY, NULL), +SW("ENSURE-GENERIC-FUNCTION", CL_ORDINARY, NULL), +SW("FIND-METHOD", CL_ORDINARY, NULL), +SW("GENERIC-FLET", CL_ORDINARY, NULL), +SW("GENERIC-FUNCTION", CL_ORDINARY, NULL), +SW("GENERIC-LABELS", CL_ORDINARY, NULL), +SW("GET-METHOD", CL_ORDINARY, NULL), +SW("INITIALIZE-INSTANCE", CL_ORDINARY, NULL), +SW("INVALID-METHOD-ERROR", CL_ORDINARY, NULL), +SW("MAKE-INSTANCE", CL_ORDINARY, NULL), +SW("MAKE-INSTANCES-OBSOLETE", CL_ORDINARY, NULL), +SW("MAKE-METHOD-CALL", CL_ORDINARY, NULL), +SW("METHOD", CL_ORDINARY, NULL), +SW("METHOD-COMBINATION-ERROR", CL_ORDINARY, NULL), +SW("METHOD-QUALIFIERS", CL_ORDINARY, NULL), +SW("NEXT-METHOD-P", CL_ORDINARY, NULL), +SW("NO-APPLICABLE-METHOD", CL_ORDINARY, NULL), +SW("PRINT-OBJECT", CL_ORDINARY, &clSprint_object), +SW("PRINT-UNREADABLE-OBJECT", CL_ORDINARY, NULL), +SW("REINITIALIZE-INSTANCE", CL_ORDINARY, NULL), +SW("REMOVE-METHOD", CL_ORDINARY, NULL), +SW("SHARED-INITIALIZE", CL_ORDINARY, NULL), +SW("SLOT-BOUNDP", CL_ORDINARY, NULL), +SW("SLOT-EXISTS-P", CL_ORDINARY, NULL), +SW("SLOT-MAKUNBOUND", CL_ORDINARY, NULL), +SW("SLOT-MISSING", CL_ORDINARY, NULL), +SW("SLOT-UNBOUND", CL_ORDINARY, NULL), +SW("SLOT-VALUE", CL_ORDINARY, NULL), +SW("STANDARD-CLASS", CL_ORDINARY, NULL), +SW("STANDARD-GENERIC-FUNCTION", CL_ORDINARY, NULL), +SW("STANDARD-METHOD", CL_ORDINARY, NULL), +SW("STANDARD-OBJECT", CL_ORDINARY, NULL), +SW("STRUCTURE-CLASS", CL_ORDINARY, NULL), +SW("STRUCTURE-OBJECT", CL_ORDINARY, &clSstructure_object), +SW("SUBCLASSP", CL_ORDINARY, NULL), +SW("UPDATE-INSTANCE-FOR-REDEFINED-CLASS", CL_ORDINARY, NULL), +SW("UPDATE-INSTANCE-STRUCTURE", CL_ORDINARY, NULL), +SW("WITH-ACCESSORS", CL_ORDINARY, NULL), +SW("WITH-ADDED-METHODS", CL_ORDINARY, NULL), +SW("WITH-SLOTS", CL_ORDINARY, NULL), +#endif /* SYSTEM PACKAGE */ SW("SI::#!", SI_ORDINARY, &siSsharp_exclamation), diff --git a/src/lsp/export.lsp b/src/lsp/export.lsp index 87de2aec8..0f6f35ddd 100644 --- a/src/lsp/export.lsp +++ b/src/lsp/export.lsp @@ -12,290 +12,15 @@ (si::select-package "CL") (export '( - &whole - &environment - &body - * - ** - *** - *features* - *modules* - + - ++ - +++ - - - / - // - /// COMMON KYOTO KCL ECL ECL - abs - acos - acosh - adjust-array - adjustable-array-p - apropos - apropos-list - array-dimension - array-dimensions - array-element-type - array-has-fill-pointer-p - array-in-bounds-p - array-rank - array-row-major-index - asin - asinh - assert - atanh - base-string - bit - bit-and - bit-andc1 - bit-andc2 - bit-eqv - bit-ior - bit-nand - bit-nor - bit-not - bit-orc1 - bit-orc2 - bit-xor - boolean - break - byte - byte-position - byte-size - ccase - cerror - char - check-type - cis - coerce - compile - compile-file - compile-file-pathname - compiler-macro-function - complement common-lisp common-lisp-user - constantly cl cl-user - *compile-print* - *compile-verbose* - concatenate - cosh - count - count-if - count-if-not - ctypecase - decf - declaim - declaration - decode-universal-time - defconstant - define-compiler-macro - define-modify-macro - define-setf-expander - define-symbol-macro - defmacro - defpackage - defparameter - defsetf - defstruct - deftype - defun - defvar - delete - delete-duplicates - delete-if - delete-if-not - delete-package - deposit-field - describe - destructuring-bind - disassemble - do* - do-all-symbols - do-external-symbols - do-symbols - documentation - dolist - dotimes - dpb - dribble - ecase - ed - eighth - encode-universal-time - error - etypecase - eval-when - every - fceiling - ffloor - fifth - fill - fill-pointer - find - find-all-symbols - find-if - find-if-not - first - float - format - fourth - fround - ftruncate - get-decoded-time - get-setf-expansion - get-universal-time - getf - ignore - in-package - incf - inspect - intersection - isqrt - ldb - ldb-test - lisp-implementation-type - load-time-value - locally - logandc1 - logandc2 - logical-pathname-translations - lognand - lognor - lognot - logorc1 - logorc2 - logtest - long-site-name - loop - loop-finish - machine-instance - machine-type - machine-version - make-array - make-sequence - map - map-into - mask-field - merge - mismatch - mod - multiple-value-setq - nil - nintersection - ninth - notany - notevery - nset-difference - nset-exclusive-or - nsubstitute - nsubstitute-if - nsubstitute-if-not - nunion - open - phase - pop - position - position-if - position-if-not - prin1-to-string - princ-to-string - prog1 - prog2 - prog* - provide - psetf - push - pushnew - rational - rationalize - read-from-string - reduce - rem - remf - remove - remove-duplicates - remove-if - remove-if-not - replace - require - rotatef - row-major-aref - room - sbit - search - second - set-difference - set-exclusive-or - setf - seventh - shiftf - short-site-name - simple-base-string - signum - sinh - sixth - software-type - software-version - some - sort - special-form-p - special-operator-p - stable-sort - step - structure - subsetp - substitute - substitute-if - substitute-if-not - subtypep - t - tanh - tenth - third - time - trace - type - typecase - typep - union - untrace - variable - vector - vector-pop - vector-push - vector-push-extend - warn - with-input-from-string - with-open-file - with-open-stream - with-output-to-string - with-standard-io-syntax - write-to-string - y-or-n-p - yes-or-no-p - - proclaim - special - type - ftype - function - inline - notinline - ignore - optimize - speed - space - safety - compilation-speed )) (si::select-package "SI") @@ -372,63 +97,6 @@ (in-package "CL") -#+CLOS -(export '( - add-method - call-next-method - change-class - class-changed - class-name - class-of - defclass - defgeneric - define-method-combination - defmethod - ensure-generic-function - find-method - generic-flet - generic-function - generic-labels - get-method - initialize-instance - invalid-method-error - make-instance - make-instances-obsolete - make-method-call - method - method-combination-error - method-qualifiers - next-method-p - no-applicable-method - print-object - print-unreadable-object - reinitialize-instance - remove-method - shared-initialize - slot-boundp - slot-exists-p - slot-makunbound - slot-missing - slot-unbound - slot-value - subclassp - symbol-macrolet - update-instance-for-redefined-class - update-instance-structure - with-accessors - with-added-methods - with-slots - - class - built-in-class - standard-class - standard-generic-function - standard-method - standard-object - structure-class - structure-object - )) - ; ; Conditions system ;