Changeset 10367


Ignore:
Timestamp:
11/05/05 19:14:14 (16 years ago)
Author:
piso
Message:

Work in progress (tested).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/jvm.lisp

    r10278 r10367  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.614 2005-10-30 01:18:04 piso Exp $
     4;;; $Id: jvm.lisp,v 1.615 2005-11-05 19:14:14 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    27322732      output)))
    27332733
     2734;;(defparameter *cl-symbol-names* (make-hash-table :test 'eq))
     2735(let ((cl-symbol-names (make-hash-table :test 'eq :size 1024)))
     2736  (defun initialize-symbol-names ()
     2737    (dolist (entry '((&ALLOW-OTHER-KEYS "AND_ALLOW_OTHER_KEYS")
     2738                     (&AUX "AND_AUX")
     2739                     (&BODY "AND_BODY")
     2740                     (&ENVIRONMENT "AND_ENVIRONMENT")
     2741                     (&KEY "AND_KEY")
     2742                     (&OPTIONAL "AND_OPTIONAL")
     2743                     (&REST "AND_REST")
     2744                     (&WHOLE "AND_WHOLE")
     2745                     (* "STAR")
     2746                     (** "STAR_STAR")
     2747                     (*** "STAR_STAR_STAR")
     2748                     (*BREAK-ON-SIGNALS* "BREAK_ON_SIGNALS")
     2749                     (*COMPILE-FILE-PATHNAME* "_COMPILE_FILE_PATHNAME_")
     2750                     (*COMPILE-FILE-TRUENAME* "COMPILE_FILE_TRUENAME")
     2751                     (*COMPILE-PRINT* "COMPILE_PRINT")
     2752                     (*COMPILE-VERBOSE* "COMPILE_VERBOSE")
     2753                     (*DEBUG-IO* "DEBUG_IO")
     2754                     (*DEBUGGER-HOOK* "DEBUGGER_HOOK")
     2755                     (*DEFAULT-PATHNAME-DEFAULTS* "DEFAULT_PATHNAME_DEFAULTS")
     2756                     (*ERROR-OUTPUT* "ERROR_OUTPUT")
     2757                     (*FEATURES* "FEATURES")
     2758                     (*GENSYM-COUNTER* "GENSYM_COUNTER")
     2759                     (*LOAD-PATHNAME* "LOAD_PATHNAME")
     2760                     (*LOAD-PRINT* "LOAD_PRINT")
     2761                     (*LOAD-TRUENAME* "LOAD_TRUENAME")
     2762                     (*LOAD-VERBOSE* "LOAD_VERBOSE")
     2763                     (*MACROEXPAND-HOOK* "MACROEXPAND_HOOK")
     2764                     (*MODULES* "MODULES")
     2765                     (*PACKAGE* "_PACKAGE_")
     2766                     (*PRINT-ARRAY* "PRINT_ARRAY")
     2767                     (*PRINT-BASE* "PRINT_BASE")
     2768                     (*PRINT-CASE* "PRINT_CASE")
     2769                     (*PRINT-CIRCLE* "PRINT_CIRCLE")
     2770                     (*PRINT-ESCAPE* "PRINT_ESCAPE")
     2771                     (*PRINT-GENSYM* "PRINT_GENSYM")
     2772                     (*PRINT-LENGTH* "PRINT_LENGTH")
     2773                     (*PRINT-LEVEL* "PRINT_LEVEL")
     2774                     (*PRINT-LINES* "PRINT_LINES")
     2775                     (*PRINT-MISER-WIDTH* "PRINT_MISER_WIDTH")
     2776                     (*PRINT-PPRINT-DISPATCH* "PRINT_PPRINT_DISPATCH")
     2777                     (*PRINT-PRETTY* "PRINT_PRETTY")
     2778                     (*PRINT-RADIX* "PRINT_RADIX")
     2779                     (*PRINT-READABLY* "PRINT_READABLY")
     2780                     (*PRINT-RIGHT-MARGIN* "PRINT_RIGHT_MARGIN")
     2781                     (*QUERY-IO* "QUERY_IO")
     2782                     (*RANDOM-STATE* "_RANDOM_STATE_")
     2783                     (*READ-BASE* "READ_BASE")
     2784                     (*READ-DEFAULT-FLOAT-FORMAT* "READ_DEFAULT_FLOAT_FORMAT")
     2785                     (*READ-EVAL* "READ_EVAL")
     2786                     (*READ-SUPPRESS* "READ_SUPPRESS")
     2787                     (*READTABLE* "_READTABLE_")
     2788                     (*STANDARD-INPUT* "STANDARD_INPUT")
     2789                     (*STANDARD-OUTPUT* "STANDARD_OUTPUT")
     2790                     (*TERMINAL-IO* "TERMINAL_IO")
     2791                     (*TRACE-OUTPUT* "TRACE_OUTPUT")
     2792                     (+ "PLUS")
     2793                     (++ "PLUS_PLUS")
     2794                     (+++ "PLUS_PLUS_PLUS")
     2795                     (- "MINUS")
     2796                     (/ "SLASH")
     2797                     (// "SLASH_SLASH")
     2798                     (/// "SLASH_SLASH_SLASH")
     2799                     (/= "NOT_EQUALS")
     2800                     (1+ "ONE_PLUS")
     2801                     (1- "ONE_MINUS")
     2802                     (< "LT")
     2803                     (<= "LE")
     2804                     (= "EQUALS")
     2805                     (> "GT")
     2806                     (>= "GE")
     2807                     (ABORT "ABORT")
     2808                     (ABS "ABS")
     2809                     (ACONS "ACONS")
     2810                     (ACOS "ACOS")
     2811                     (ACOSH "ACOSH")
     2812                     (ADD-METHOD "ADD_METHOD")
     2813                     (ADJOIN "ADJOIN")
     2814                     (ADJUST-ARRAY "ADJUST_ARRAY")
     2815                     (ADJUSTABLE-ARRAY-P "ADJUSTABLE_ARRAY_P")
     2816                     (ALLOCATE-INSTANCE "ALLOCATE_INSTANCE")
     2817                     (ALPHA-CHAR-P "ALPHA_CHAR_P")
     2818                     (ALPHANUMERICP "ALPHANUMERICP")
     2819                     (AND "AND")
     2820                     (APPEND "APPEND")
     2821                     (APPLY "APPLY")
     2822                     (APROPOS "APROPOS")
     2823                     (APROPOS-LIST "APROPOS_LIST")
     2824                     (AREF "AREF")
     2825                     (ARITHMETIC-ERROR "ARITHMETIC_ERROR")
     2826                     (ARITHMETIC-ERROR-OPERANDS "ARITHMETIC_ERROR_OPERANDS")
     2827                     (ARITHMETIC-ERROR-OPERATION "ARITHMETIC_ERROR_OPERATION")
     2828                     (ARRAY "ARRAY")
     2829                     (ARRAY-DIMENSION "ARRAY_DIMENSION")
     2830                     (ARRAY-DIMENSION-LIMIT "ARRAY_DIMENSION_LIMIT")
     2831                     (ARRAY-DIMENSIONS "ARRAY_DIMENSIONS")
     2832                     (ARRAY-DISPLACEMENT "ARRAY_DISPLACEMENT")
     2833                     (ARRAY-ELEMENT-TYPE "ARRAY_ELEMENT_TYPE")
     2834                     (ARRAY-HAS-FILL-POINTER-P "ARRAY_HAS_FILL_POINTER_P")
     2835                     (ARRAY-IN-BOUNDS-P "ARRAY_IN_BOUNDS_P")
     2836                     (ARRAY-RANK "ARRAY_RANK")
     2837                     (ARRAY-RANK-LIMIT "ARRAY_RANK_LIMIT")
     2838                     (ARRAY-ROW-MAJOR-INDEX "ARRAY_ROW_MAJOR_INDEX")
     2839                     (ARRAY-TOTAL-SIZE "ARRAY_TOTAL_SIZE")
     2840                     (ARRAY-TOTAL-SIZE-LIMIT "ARRAY_TOTAL_SIZE_LIMIT")
     2841                     (ARRAYP "ARRAYP")
     2842                     (ASH "ASH")
     2843                     (ASIN "ASIN")
     2844                     (ASINH "ASINH")
     2845                     (ASSERT "ASSERT")
     2846                     (ASSOC "ASSOC")
     2847                     (ASSOC-IF "ASSOC_IF")
     2848                     (ASSOC-IF-NOT "ASSOC_IF_NOT")
     2849                     (ATAN "ATAN")
     2850                     (ATANH "ATANH")
     2851                     (ATOM "ATOM")
     2852                     (BASE-CHAR "BASE_CHAR")
     2853                     (BASE-STRING "BASE_STRING")
     2854                     (BIGNUM "BIGNUM")
     2855                     (BIT "BIT")
     2856                     (BIT-AND "BIT_AND")
     2857                     (BIT-ANDC1 "BIT_ANDC1")
     2858                     (BIT-ANDC2 "BIT_ANDC2")
     2859                     (BIT-EQV "BIT_EQV")
     2860                     (BIT-IOR "BIT_IOR")
     2861                     (BIT-NAND "BIT_NAND")
     2862                     (BIT-NOR "BIT_NOR")
     2863                     (BIT-NOT "BIT_NOT")
     2864                     (BIT-ORC1 "BIT_ORC1")
     2865                     (BIT-ORC2 "BIT_ORC2")
     2866                     (BIT-VECTOR "BIT_VECTOR")
     2867                     (BIT-VECTOR-P "BIT_VECTOR_P")
     2868                     (BIT-XOR "BIT_XOR")
     2869                     (BLOCK "BLOCK")
     2870                     (BOOLE "BOOLE")
     2871                     (BOOLE-1 "BOOLE_1")
     2872                     (BOOLE-2 "BOOLE_2")
     2873                     (BOOLE-AND "BOOLE_AND")
     2874                     (BOOLE-ANDC1 "BOOLE_ANDC1")
     2875                     (BOOLE-ANDC2 "BOOLE_ANDC2")
     2876                     (BOOLE-C1 "BOOLE_C1")
     2877                     (BOOLE-C2 "BOOLE_C2")
     2878                     (BOOLE-CLR "BOOLE_CLR")
     2879                     (BOOLE-EQV "BOOLE_EQV")
     2880                     (BOOLE-IOR "BOOLE_IOR")
     2881                     (BOOLE-NAND "BOOLE_NAND")
     2882                     (BOOLE-NOR "BOOLE_NOR")
     2883                     (BOOLE-ORC1 "BOOLE_ORC1")
     2884                     (BOOLE-ORC2 "BOOLE_ORC2")
     2885                     (BOOLE-SET "BOOLE_SET")
     2886                     (BOOLE-XOR "BOOLE_XOR")
     2887                     (BOOLEAN "BOOLEAN")
     2888                     (BOTH-CASE-P "BOTH_CASE_P")
     2889                     (BOUNDP "BOUNDP")
     2890                     (BREAK "BREAK")
     2891                     (BROADCAST-STREAM "BROADCAST_STREAM")
     2892                     (BROADCAST-STREAM-STREAMS "BROADCAST_STREAM_STREAMS")
     2893                     (BUILT-IN-CLASS "BUILT_IN_CLASS")
     2894                     (BUTLAST "BUTLAST")
     2895                     (BYTE "BYTE")
     2896                     (BYTE-POSITION "BYTE_POSITION")
     2897                     (BYTE-SIZE "BYTE_SIZE")
     2898                     (CAAAAR "CAAAAR")
     2899                     (CAAADR "CAAADR")
     2900                     (CAAAR "CAAAR")
     2901                     (CAADAR "CAADAR")
     2902                     (CAADDR "CAADDR")
     2903                     (CAADR "CAADR")
     2904                     (CAAR "CAAR")
     2905                     (CADAAR "CADAAR")
     2906                     (CADADR "CADADR")
     2907                     (CADAR "CADAR")
     2908                     (CADDAR "CADDAR")
     2909                     (CADDDR "CADDDR")
     2910                     (CADDR "CADDR")
     2911                     (CADR "CADR")
     2912                     (CALL-ARGUMENTS-LIMIT "CALL_ARGUMENTS_LIMIT")
     2913                     (CALL-METHOD "CALL_METHOD")
     2914                     (CALL-NEXT-METHOD "CALL_NEXT_METHOD")
     2915                     (CAR "CAR")
     2916                     (CASE "CASE")
     2917                     (CATCH "CATCH")
     2918                     (CCASE "CCASE")
     2919                     (CDAAAR "CDAAAR")
     2920                     (CDAADR "CDAADR")
     2921                     (CDAAR "CDAAR")
     2922                     (CDADAR "CDADAR")
     2923                     (CDADDR "CDADDR")
     2924                     (CDADR "CDADR")
     2925                     (CDAR "CDAR")
     2926                     (CDDAAR "CDDAAR")
     2927                     (CDDADR "CDDADR")
     2928                     (CDDAR "CDDAR")
     2929                     (CDDDAR "CDDDAR")
     2930                     (CDDDDR "CDDDDR")
     2931                     (CDDDR "CDDDR")
     2932                     (CDDR "CDDR")
     2933                     (CDR "CDR")
     2934                     (CEILING "CEILING")
     2935                     (CELL-ERROR "CELL_ERROR")
     2936                     (CELL-ERROR-NAME "CELL_ERROR_NAME")
     2937                     (CERROR "CERROR")
     2938                     (CHANGE-CLASS "CHANGE_CLASS")
     2939                     (CHAR "CHAR")
     2940                     (CHAR-CODE "CHAR_CODE")
     2941                     (CHAR-CODE-LIMIT "CHAR_CODE_LIMIT")
     2942                     (CHAR-DOWNCASE "CHAR_DOWNCASE")
     2943                     (CHAR-EQUAL "CHAR_EQUAL")
     2944                     (CHAR-GREATERP "CHAR_GREATERP")
     2945                     (CHAR-INT "CHAR_INT")
     2946                     (CHAR-LESSP "CHAR_LESSP")
     2947                     (CHAR-NAME "CHAR_NAME")
     2948                     (CHAR-NOT-EQUAL "CHAR_NOT_EQUAL")
     2949                     (CHAR-NOT-GREATERP "CHAR_NOT_GREATERP")
     2950                     (CHAR-NOT-LESSP "CHAR_NOT_LESSP")
     2951                     (CHAR-UPCASE "CHAR_UPCASE")
     2952                     (CHAR/= "CHAR_NE")
     2953                     (CHAR< "CHAR_LT")
     2954                     (CHAR<= "CHAR_LE")
     2955                     (CHAR= "CHAR_EQUALS")
     2956                     (CHAR> "CHAR_GT")
     2957                     (CHAR>= "CHAR_GE")
     2958                     (CHARACTER "CHARACTER")
     2959                     (CHARACTERP "CHARACTERP")
     2960                     (CHECK-TYPE "CHECK_TYPE")
     2961                     (CIS "CIS")
     2962                     (CLASS "CLASS")
     2963                     (CLASS-NAME "CLASS_NAME")
     2964                     (CLASS-OF "CLASS_OF")
     2965                     (CLEAR-INPUT "CLEAR_INPUT")
     2966                     (CLEAR-OUTPUT "CLEAR_OUTPUT")
     2967                     (CLOSE "CLOSE")
     2968                     (CLRHASH "CLRHASH")
     2969                     (CODE-CHAR "CODE_CHAR")
     2970                     (COERCE "COERCE")
     2971                     (COMPILATION-SPEED "COMPILATION_SPEED")
     2972                     (COMPILE "COMPILE")
     2973                     (COMPILE-FILE "COMPILE_FILE")
     2974                     (COMPILE-FILE-PATHNAME "COMPILE_FILE_PATHNAME")
     2975                     (COMPILED-FUNCTION "COMPILED_FUNCTION")
     2976                     (COMPILED-FUNCTION-P "COMPILED_FUNCTION_P")
     2977                     (COMPILER-MACRO "COMPILER_MACRO")
     2978                     (COMPILER-MACRO-FUNCTION "COMPILER_MACRO_FUNCTION")
     2979                     (COMPLEMENT "COMPLEMENT")
     2980                     (COMPLEX "COMPLEX")
     2981                     (COMPLEXP "COMPLEXP")
     2982                     (COMPUTE-APPLICABLE-METHODS "COMPUTE_APPLICABLE_METHODS")
     2983                     (COMPUTE-RESTARTS "COMPUTE_RESTARTS")
     2984                     (CONCATENATE "CONCATENATE")
     2985                     (CONCATENATED-STREAM "CONCATENATED_STREAM")
     2986                     (CONCATENATED-STREAM-STREAMS "CONCATENATED_STREAM_STREAMS")
     2987                     (COND "COND")
     2988                     (CONDITION "CONDITION")
     2989                     (CONJUGATE "CONJUGATE")
     2990                     (CONS "CONS")
     2991                     (CONSP "CONSP")
     2992                     (CONSTANTLY "CONSTANTLY")
     2993                     (CONSTANTP "CONSTANTP")
     2994                     (CONTINUE "CONTINUE")
     2995                     (CONTROL-ERROR "CONTROL_ERROR")
     2996                     (COPY-ALIST "COPY_ALIST")
     2997                     (COPY-LIST "COPY_LIST")
     2998                     (COPY-PPRINT-DISPATCH "COPY_PPRINT_DISPATCH")
     2999                     (COPY-READTABLE "COPY_READTABLE")
     3000                     (COPY-SEQ "COPY_SEQ")
     3001                     (COPY-STRUCTURE "COPY_STRUCTURE")
     3002                     (COPY-SYMBOL "COPY_SYMBOL")
     3003                     (COPY-TREE "COPY_TREE")
     3004                     (COS "COS")
     3005                     (COSH "COSH")
     3006                     (COUNT "COUNT")
     3007                     (COUNT-IF "COUNT_IF")
     3008                     (COUNT-IF-NOT "COUNT_IF_NOT")
     3009                     (CTYPECASE "CTYPECASE")
     3010                     (DEBUG "DEBUG")
     3011                     (DECF "DECF")
     3012                     (DECLAIM "DECLAIM")
     3013                     (DECLARATION "DECLARATION")
     3014                     (DECLARE "DECLARE")
     3015                     (DECODE-FLOAT "DECODE_FLOAT")
     3016                     (DECODE-UNIVERSAL-TIME "DECODE_UNIVERSAL_TIME")
     3017                     (DEFCLASS "DEFCLASS")
     3018                     (DEFCONSTANT "DEFCONSTANT")
     3019                     (DEFGENERIC "DEFGENERIC")
     3020                     (DEFINE-COMPILER-MACRO "DEFINE_COMPILER_MACRO")
     3021                     (DEFINE-CONDITION "DEFINE_CONDITION")
     3022                     (DEFINE-METHOD-COMBINATION "DEFINE_METHOD_COMBINATION")
     3023                     (DEFINE-MODIFY-MACRO "DEFINE_MODIFY_MACRO")
     3024                     (DEFINE-SETF-EXPANDER "DEFINE_SETF_EXPANDER")
     3025                     (DEFINE-SYMBOL-MACRO "DEFINE_SYMBOL_MACRO")
     3026                     (DEFMACRO "DEFMACRO")
     3027                     (DEFMETHOD "DEFMETHOD")
     3028                     (DEFPACKAGE "DEFPACKAGE")
     3029                     (DEFPARAMETER "DEFPARAMETER")
     3030                     (DEFSETF "DEFSETF")
     3031                     (DEFSTRUCT "DEFSTRUCT")
     3032                     (DEFTYPE "DEFTYPE")
     3033                     (DEFUN "DEFUN")
     3034                     (DEFVAR "DEFVAR")
     3035                     (DELETE "DELETE")
     3036                     (DELETE-DUPLICATES "DELETE_DUPLICATES")
     3037                     (DELETE-FILE "DELETE_FILE")
     3038                     (DELETE-IF "DELETE_IF")
     3039                     (DELETE-IF-NOT "DELETE_IF_NOT")
     3040                     (DELETE-PACKAGE "DELETE_PACKAGE")
     3041                     (DENOMINATOR "DENOMINATOR")
     3042                     (DEPOSIT-FIELD "DEPOSIT_FIELD")
     3043                     (DESCRIBE "DESCRIBE")
     3044                     (DESCRIBE-OBJECT "DESCRIBE_OBJECT")
     3045                     (DESTRUCTURING-BIND "DESTRUCTURING_BIND")
     3046                     (DIGIT-CHAR "DIGIT_CHAR")
     3047                     (DIGIT-CHAR-P "DIGIT_CHAR_P")
     3048                     (DIRECTORY "DIRECTORY")
     3049                     (DIRECTORY-NAMESTRING "DIRECTORY_NAMESTRING")
     3050                     (DISASSEMBLE "DISASSEMBLE")
     3051                     (DIVISION-BY-ZERO "DIVISION_BY_ZERO")
     3052                     (DO "DO")
     3053                     (DO* "DO_STAR")
     3054                     (DO-ALL-SYMBOLS "DO_ALL_SYMBOLS")
     3055                     (DO-EXTERNAL-SYMBOLS "DO_EXTERNAL_SYMBOLS")
     3056                     (DO-SYMBOLS "DO_SYMBOLS")
     3057                     (DOCUMENTATION "DOCUMENTATION")
     3058                     (DOLIST "DOLIST")
     3059                     (DOTIMES "DOTIMES")
     3060                     (DOUBLE-FLOAT "DOUBLE_FLOAT")
     3061                     (DOUBLE-FLOAT-EPSILON "DOUBLE_FLOAT_EPSILON")
     3062                     (DOUBLE-FLOAT-NEGATIVE-EPSILON "DOUBLE_FLOAT_NEGATIVE_EPSILON")
     3063                     (DPB "DPB")
     3064                     (DRIBBLE "DRIBBLE")
     3065                     (DYNAMIC-EXTENT "DYNAMIC_EXTENT")
     3066                     (ECASE "ECASE")
     3067                     (ECHO-STREAM "ECHO_STREAM")
     3068                     (ECHO-STREAM-INPUT-STREAM "ECHO_STREAM_INPUT_STREAM")
     3069                     (ECHO-STREAM-OUTPUT-STREAM "ECHO_STREAM_OUTPUT_STREAM")
     3070                     (ED "ED")
     3071                     (EIGHTH "EIGHTH")
     3072                     (ELT "ELT")
     3073                     (ENCODE-UNIVERSAL-TIME "ENCODE_UNIVERSAL_TIME")
     3074                     (END-OF-FILE "END_OF_FILE")
     3075                     (ENDP "ENDP")
     3076                     (ENOUGH-NAMESTRING "ENOUGH_NAMESTRING")
     3077                     (ENSURE-DIRECTORIES-EXIST "ENSURE_DIRECTORIES_EXIST")
     3078                     (ENSURE-GENERIC-FUNCTION "ENSURE_GENERIC_FUNCTION")
     3079                     (EQ "EQ")
     3080                     (EQL "EQL")
     3081                     (EQUAL "EQUAL")
     3082                     (EQUALP "EQUALP")
     3083                     (ERROR "ERROR")
     3084                     (ETYPECASE "ETYPECASE")
     3085                     (EVAL "EVAL")
     3086                     (EVAL-WHEN "EVAL_WHEN")
     3087                     (EVENP "EVENP")
     3088                     (EVERY "EVERY")
     3089                     (EXP "EXP")
     3090                     (EXPORT "EXPORT")
     3091                     (EXPT "EXPT")
     3092                     (EXTENDED-CHAR "EXTENDED_CHAR")
     3093                     (FBOUNDP "FBOUNDP")
     3094                     (FCEILING "FCEILING")
     3095                     (FDEFINITION "FDEFINITION")
     3096                     (FFLOOR "FFLOOR")
     3097                     (FIFTH "FIFTH")
     3098                     (FILE-AUTHOR "FILE_AUTHOR")
     3099                     (FILE-ERROR "FILE_ERROR")
     3100                     (FILE-ERROR-PATHNAME "FILE_ERROR_PATHNAME")
     3101                     (FILE-LENGTH "FILE_LENGTH")
     3102                     (FILE-NAMESTRING "FILE_NAMESTRING")
     3103                     (FILE-POSITION "FILE_POSITION")
     3104                     (FILE-STREAM "FILE_STREAM")
     3105                     (FILE-STRING-LENGTH "FILE_STRING_LENGTH")
     3106                     (FILE-WRITE-DATE "FILE_WRITE_DATE")
     3107                     (FILL "FILL")
     3108                     (FILL-POINTER "FILL_POINTER")
     3109                     (FIND "FIND")
     3110                     (FIND-ALL-SYMBOLS "FIND_ALL_SYMBOLS")
     3111                     (FIND-CLASS "FIND_CLASS")
     3112                     (FIND-IF "FIND_IF")
     3113                     (FIND-IF-NOT "FIND_IF_NOT")
     3114                     (FIND-METHOD "FIND_METHOD")
     3115                     (FIND-PACKAGE "FIND_PACKAGE")
     3116                     (FIND-RESTART "FIND_RESTART")
     3117                     (FIND-SYMBOL "FIND_SYMBOL")
     3118                     (FINISH-OUTPUT "FINISH_OUTPUT")
     3119                     (FIRST "FIRST")
     3120                     (FIXNUM "FIXNUM")
     3121                     (FLET "FLET")
     3122                     (FLOAT "FLOAT")
     3123                     (FLOAT-DIGITS "FLOAT_DIGITS")
     3124                     (FLOAT-PRECISION "FLOAT_PRECISION")
     3125                     (FLOAT-RADIX "FLOAT_RADIX")
     3126                     (FLOAT-SIGN "FLOAT_SIGN")
     3127                     (FLOATING-POINT-INEXACT "FLOATING_POINT_INEXACT")
     3128                     (FLOATING-POINT-INVALID-OPERATION "FLOATING_POINT_INVALID_OPERATION")
     3129                     (FLOATING-POINT-OVERFLOW "FLOATING_POINT_OVERFLOW")
     3130                     (FLOATING-POINT-UNDERFLOW "FLOATING_POINT_UNDERFLOW")
     3131                     (FLOATP "FLOATP")
     3132                     (FLOOR "FLOOR")
     3133                     (FMAKUNBOUND "FMAKUNBOUND")
     3134                     (FORCE-OUTPUT "FORCE_OUTPUT")
     3135                     (FORMAT "FORMAT")
     3136                     (FORMATTER "FORMATTER")
     3137                     (FOURTH "FOURTH")
     3138                     (FRESH-LINE "FRESH_LINE")
     3139                     (FROUND "FROUND")
     3140                     (FTRUNCATE "FTRUNCATE")
     3141                     (FTYPE "FTYPE")
     3142                     (FUNCALL "FUNCALL")
     3143                     (FUNCTION "FUNCTION")
     3144                     (FUNCTION-KEYWORDS "FUNCTION_KEYWORDS")
     3145                     (FUNCTION-LAMBDA-EXPRESSION "FUNCTION_LAMBDA_EXPRESSION")
     3146                     (FUNCTIONP "FUNCTIONP")
     3147                     (GCD "GCD")
     3148                     (GENERIC-FUNCTION "GENERIC_FUNCTION")
     3149                     (GENSYM "GENSYM")
     3150                     (GENTEMP "GENTEMP")
     3151                     (GET "GET")
     3152                     (GET-DECODED-TIME "GET_DECODED_TIME")
     3153                     (GET-DISPATCH-MACRO-CHARACTER "GET_DISPATCH_MACRO_CHARACTER")
     3154                     (GET-INTERNAL-REAL-TIME "GET_INTERNAL_REAL_TIME")
     3155                     (GET-INTERNAL-RUN-TIME "GET_INTERNAL_RUN_TIME")
     3156                     (GET-MACRO-CHARACTER "GET_MACRO_CHARACTER")
     3157                     (GET-OUTPUT-STREAM-STRING "GET_OUTPUT_STREAM_STRING")
     3158                     (GET-PROPERTIES "GET_PROPERTIES")
     3159                     (GET-SETF-EXPANSION "GET_SETF_EXPANSION")
     3160                     (GET-UNIVERSAL-TIME "GET_UNIVERSAL_TIME")
     3161                     (GETF "GETF")
     3162                     (GETHASH "GETHASH")
     3163                     (GO "GO")
     3164                     (GRAPHIC-CHAR-P "GRAPHIC_CHAR_P")
     3165                     (HANDLER-BIND "HANDLER_BIND")
     3166                     (HANDLER-CASE "HANDLER_CASE")
     3167                     (HASH-TABLE "HASH_TABLE")
     3168                     (HASH-TABLE-COUNT "HASH_TABLE_COUNT")
     3169                     (HASH-TABLE-P "HASH_TABLE_P")
     3170                     (HASH-TABLE-REHASH-SIZE "HASH_TABLE_REHASH_SIZE")
     3171                     (HASH-TABLE-REHASH-THRESHOLD "HASH_TABLE_REHASH_THRESHOLD")
     3172                     (HASH-TABLE-SIZE "HASH_TABLE_SIZE")
     3173                     (HASH-TABLE-TEST "HASH_TABLE_TEST")
     3174                     (HOST-NAMESTRING "HOST_NAMESTRING")
     3175                     (IDENTITY "IDENTITY")
     3176                     (IF "IF")
     3177                     (IGNORABLE "IGNORABLE")
     3178                     (IGNORE "IGNORE")
     3179                     (IGNORE-ERRORS "IGNORE_ERRORS")
     3180                     (IMAGPART "IMAGPART")
     3181                     (IMPORT "IMPORT")
     3182                     (IN-PACKAGE "IN_PACKAGE")
     3183                     (INCF "INCF")
     3184                     (INITIALIZE-INSTANCE "INITIALIZE_INSTANCE")
     3185                     (INLINE "INLINE")
     3186                     (INPUT-STREAM-P "INPUT_STREAM_P")
     3187                     (INSPECT "INSPECT")
     3188                     (INTEGER "INTEGER")
     3189                     (INTEGER-DECODE-FLOAT "INTEGER_DECODE_FLOAT")
     3190                     (INTEGER-LENGTH "INTEGER_LENGTH")
     3191                     (INTEGERP "INTEGERP")
     3192                     (INTERACTIVE-STREAM-P "INTERACTIVE_STREAM_P")
     3193                     (INTERN "INTERN")
     3194                     (INTERNAL-TIME-UNITS-PER-SECOND "INTERNAL_TIME_UNITS_PER_SECOND")
     3195                     (INTERSECTION "INTERSECTION")
     3196                     (INVALID-METHOD-ERROR "INVALID_METHOD_ERROR")
     3197                     (INVOKE-DEBUGGER "INVOKE_DEBUGGER")
     3198                     (INVOKE-RESTART "INVOKE_RESTART")
     3199                     (INVOKE-RESTART-INTERACTIVELY "INVOKE_RESTART_INTERACTIVELY")
     3200                     (ISQRT "ISQRT")
     3201                     (KEYWORD "KEYWORD")
     3202                     (KEYWORDP "KEYWORDP")
     3203                     (LABELS "LABELS")
     3204                     (LAMBDA "LAMBDA")
     3205                     (LAMBDA-LIST-KEYWORDS "LAMBDA_LIST_KEYWORDS")
     3206                     (LAMBDA-PARAMETERS-LIMIT "LAMBDA_PARAMETERS_LIMIT")
     3207                     (LAST "LAST")
     3208                     (LCM "LCM")
     3209                     (LDB "LDB")
     3210                     (LDB-TEST "LDB_TEST")
     3211                     (LDIFF "LDIFF")
     3212                     (LEAST-NEGATIVE-DOUBLE-FLOAT "LEAST_NEGATIVE_DOUBLE_FLOAT")
     3213                     (LEAST-NEGATIVE-LONG-FLOAT "LEAST_NEGATIVE_LONG_FLOAT")
     3214                     (LEAST-NEGATIVE-NORMALIZED-DOUBLE-FLOAT "LEAST_NEGATIVE_NORMALIZED_DOUBLE_FLOAT")
     3215                     (LEAST-NEGATIVE-NORMALIZED-LONG-FLOAT "LEAST_NEGATIVE_NORMALIZED_LONG_FLOAT")
     3216                     (LEAST-NEGATIVE-NORMALIZED-SHORT-FLOAT "LEAST_NEGATIVE_NORMALIZED_SHORT_FLOAT")
     3217                     (LEAST-NEGATIVE-NORMALIZED-SINGLE-FLOAT "LEAST_NEGATIVE_NORMALIZED_SINGLE_FLOAT")
     3218                     (LEAST-NEGATIVE-SHORT-FLOAT "LEAST_NEGATIVE_SHORT_FLOAT")
     3219                     (LEAST-NEGATIVE-SINGLE-FLOAT "LEAST_NEGATIVE_SINGLE_FLOAT")
     3220                     (LEAST-POSITIVE-DOUBLE-FLOAT "LEAST_POSITIVE_DOUBLE_FLOAT")
     3221                     (LEAST-POSITIVE-LONG-FLOAT "LEAST_POSITIVE_LONG_FLOAT")
     3222                     (LEAST-POSITIVE-NORMALIZED-DOUBLE-FLOAT "LEAST_POSITIVE_NORMALIZED_DOUBLE_FLOAT")
     3223                     (LEAST-POSITIVE-NORMALIZED-LONG-FLOAT "LEAST_POSITIVE_NORMALIZED_LONG_FLOAT")
     3224                     (LEAST-POSITIVE-NORMALIZED-SHORT-FLOAT "LEAST_POSITIVE_NORMALIZED_SHORT_FLOAT")
     3225                     (LEAST-POSITIVE-NORMALIZED-SINGLE-FLOAT "LEAST_POSITIVE_NORMALIZED_SINGLE_FLOAT")
     3226                     (LEAST-POSITIVE-SHORT-FLOAT "LEAST_POSITIVE_SHORT_FLOAT")
     3227                     (LEAST-POSITIVE-SINGLE-FLOAT "LEAST_POSITIVE_SINGLE_FLOAT")
     3228                     (LENGTH "LENGTH")
     3229                     (LET "LET")
     3230                     (LET* "LET_STAR")
     3231                     (LISP-IMPLEMENTATION-TYPE "LISP_IMPLEMENTATION_TYPE")
     3232                     (LISP-IMPLEMENTATION-VERSION "LISP_IMPLEMENTATION_VERSION")
     3233                     (LIST "LIST")
     3234                     (LIST* "LIST_STAR")
     3235                     (LIST-ALL-PACKAGES "LIST_ALL_PACKAGES")
     3236                     (LIST-LENGTH "LIST_LENGTH")
     3237                     (LISTEN "LISTEN")
     3238                     (LISTP "LISTP")
     3239                     (LOAD "LOAD")
     3240                     (LOAD-LOGICAL-PATHNAME-TRANSLATIONS "LOAD_LOGICAL_PATHNAME_TRANSLATIONS")
     3241                     (LOAD-TIME-VALUE "LOAD_TIME_VALUE")
     3242                     (LOCALLY "LOCALLY")
     3243                     (LOG "LOG")
     3244                     (LOGAND "LOGAND")
     3245                     (LOGANDC1 "LOGANDC1")
     3246                     (LOGANDC2 "LOGANDC2")
     3247                     (LOGBITP "LOGBITP")
     3248                     (LOGCOUNT "LOGCOUNT")
     3249                     (LOGEQV "LOGEQV")
     3250                     (LOGICAL-PATHNAME "LOGICAL_PATHNAME")
     3251                     (LOGICAL-PATHNAME-TRANSLATIONS "LOGICAL_PATHNAME_TRANSLATIONS")
     3252                     (LOGIOR "LOGIOR")
     3253                     (LOGNAND "LOGNAND")
     3254                     (LOGNOR "LOGNOR")
     3255                     (LOGNOT "LOGNOT")
     3256                     (LOGORC1 "LOGORC1")
     3257                     (LOGORC2 "LOGORC2")
     3258                     (LOGTEST "LOGTEST")
     3259                     (LOGXOR "LOGXOR")
     3260                     (LONG-FLOAT "LONG_FLOAT")
     3261                     (LONG-FLOAT-EPSILON "LONG_FLOAT_EPSILON")
     3262                     (LONG-FLOAT-NEGATIVE-EPSILON "LONG_FLOAT_NEGATIVE_EPSILON")
     3263                     (LONG-SITE-NAME "LONG_SITE_NAME")
     3264                     (LOOP "LOOP")
     3265                     (LOOP-FINISH "LOOP_FINISH")
     3266                     (LOWER-CASE-P "LOWER_CASE_P")
     3267                     (MACHINE-INSTANCE "MACHINE_INSTANCE")
     3268                     (MACHINE-TYPE "MACHINE_TYPE")
     3269                     (MACHINE-VERSION "MACHINE_VERSION")
     3270                     (MACRO-FUNCTION "MACRO_FUNCTION")
     3271                     (MACROEXPAND "MACROEXPAND")
     3272                     (MACROEXPAND-1 "MACROEXPAND_1")
     3273                     (MACROLET "MACROLET")
     3274                     (MAKE-ARRAY "MAKE_ARRAY")
     3275                     (MAKE-BROADCAST-STREAM "MAKE_BROADCAST_STREAM")
     3276                     (MAKE-CONCATENATED-STREAM "MAKE_CONCATENATED_STREAM")
     3277                     (MAKE-CONDITION "MAKE_CONDITION")
     3278                     (MAKE-DISPATCH-MACRO-CHARACTER "MAKE_DISPATCH_MACRO_CHARACTER")
     3279                     (MAKE-ECHO-STREAM "MAKE_ECHO_STREAM")
     3280                     (MAKE-HASH-TABLE "MAKE_HASH_TABLE")
     3281                     (MAKE-INSTANCE "MAKE_INSTANCE")
     3282                     (MAKE-INSTANCES-OBSOLETE "MAKE_INSTANCES_OBSOLETE")
     3283                     (MAKE-LIST "MAKE_LIST")
     3284                     (MAKE-LOAD-FORM "MAKE_LOAD_FORM")
     3285                     (MAKE-LOAD-FORM-SAVING-SLOTS "MAKE_LOAD_FORM_SAVING_SLOTS")
     3286                     (MAKE-METHOD "MAKE_METHOD")
     3287                     (MAKE-PACKAGE "MAKE_PACKAGE")
     3288                     (MAKE-PATHNAME "MAKE_PATHNAME")
     3289                     (MAKE-RANDOM-STATE "MAKE_RANDOM_STATE")
     3290                     (MAKE-SEQUENCE "MAKE_SEQUENCE")
     3291                     (MAKE-STRING "MAKE_STRING")
     3292                     (MAKE-STRING-INPUT-STREAM "MAKE_STRING_INPUT_STREAM")
     3293                     (MAKE-STRING-OUTPUT-STREAM "MAKE_STRING_OUTPUT_STREAM")
     3294                     (MAKE-SYMBOL "MAKE_SYMBOL")
     3295                     (MAKE-SYNONYM-STREAM "MAKE_SYNONYM_STREAM")
     3296                     (MAKE-TWO-WAY-STREAM "MAKE_TWO_WAY_STREAM")
     3297                     (MAKUNBOUND "MAKUNBOUND")
     3298                     (MAP "MAP")
     3299                     (MAP-INTO "MAP_INTO")
     3300                     (MAPC "MAPC")
     3301                     (MAPCAN "MAPCAN")
     3302                     (MAPCAR "MAPCAR")
     3303                     (MAPCON "MAPCON")
     3304                     (MAPHASH "MAPHASH")
     3305                     (MAPL "MAPL")
     3306                     (MAPLIST "MAPLIST")
     3307                     (MASK-FIELD "MASK_FIELD")
     3308                     (MAX "MAX")
     3309                     (MEMBER "MEMBER")
     3310                     (MEMBER-IF "MEMBER_IF")
     3311                     (MEMBER-IF-NOT "MEMBER_IF_NOT")
     3312                     (MERGE "MERGE")
     3313                     (MERGE-PATHNAMES "MERGE_PATHNAMES")
     3314                     (METHOD "METHOD")
     3315                     (METHOD-COMBINATION "METHOD_COMBINATION")
     3316                     (METHOD-COMBINATION-ERROR "METHOD_COMBINATION_ERROR")
     3317                     (METHOD-QUALIFIERS "METHOD_QUALIFIERS")
     3318                     (MIN "MIN")
     3319                     (MINUSP "MINUSP")
     3320                     (MISMATCH "MISMATCH")
     3321                     (MOD "MOD")
     3322                     (MOST-NEGATIVE-DOUBLE-FLOAT "MOST_NEGATIVE_DOUBLE_FLOAT")
     3323                     (MOST-NEGATIVE-FIXNUM "MOST_NEGATIVE_FIXNUM")
     3324                     (MOST-NEGATIVE-LONG-FLOAT "MOST_NEGATIVE_LONG_FLOAT")
     3325                     (MOST-NEGATIVE-SHORT-FLOAT "MOST_NEGATIVE_SHORT_FLOAT")
     3326                     (MOST-NEGATIVE-SINGLE-FLOAT "MOST_NEGATIVE_SINGLE_FLOAT")
     3327                     (MOST-POSITIVE-DOUBLE-FLOAT "MOST_POSITIVE_DOUBLE_FLOAT")
     3328                     (MOST-POSITIVE-FIXNUM "MOST_POSITIVE_FIXNUM")
     3329                     (MOST-POSITIVE-LONG-FLOAT "MOST_POSITIVE_LONG_FLOAT")
     3330                     (MOST-POSITIVE-SHORT-FLOAT "MOST_POSITIVE_SHORT_FLOAT")
     3331                     (MOST-POSITIVE-SINGLE-FLOAT "MOST_POSITIVE_SINGLE_FLOAT")
     3332                     (MUFFLE-WARNING "MUFFLE_WARNING")
     3333                     (MULTIPLE-VALUE-BIND "MULTIPLE_VALUE_BIND")
     3334                     (MULTIPLE-VALUE-CALL "MULTIPLE_VALUE_CALL")
     3335                     (MULTIPLE-VALUE-LIST "MULTIPLE_VALUE_LIST")
     3336                     (MULTIPLE-VALUE-PROG1 "MULTIPLE_VALUE_PROG1")
     3337                     (MULTIPLE-VALUE-SETQ "MULTIPLE_VALUE_SETQ")
     3338                     (MULTIPLE-VALUES-LIMIT "MULTIPLE_VALUES_LIMIT")
     3339                     (NAME-CHAR "NAME_CHAR")
     3340                     (NAMESTRING "NAMESTRING")
     3341                     (NBUTLAST "NBUTLAST")
     3342                     (NCONC "NCONC")
     3343                     (NEXT-METHOD-P "NEXT_METHOD_P")
     3344                     (NINTERSECTION "NINTERSECTION")
     3345                     (NINTH "NINTH")
     3346                     (NO-APPLICABLE-METHOD "NO_APPLICABLE_METHOD")
     3347                     (NO-NEXT-METHOD "NO_NEXT_METHOD")
     3348                     (NOT "NOT")
     3349                     (NOTANY "NOTANY")
     3350                     (NOTEVERY "NOTEVERY")
     3351                     (NOTINLINE "NOTINLINE")
     3352                     (NRECONC "NRECONC")
     3353                     (NREVERSE "NREVERSE")
     3354                     (NSET-DIFFERENCE "NSET_DIFFERENCE")
     3355                     (NSET-EXCLUSIVE-OR "NSET_EXCLUSIVE_OR")
     3356                     (NSTRING-CAPITALIZE "NSTRING_CAPITALIZE")
     3357                     (NSTRING-DOWNCASE "NSTRING_DOWNCASE")
     3358                     (NSTRING-UPCASE "NSTRING_UPCASE")
     3359                     (NSUBLIS "NSUBLIS")
     3360                     (NSUBST "NSUBST")
     3361                     (NSUBST-IF "NSUBST_IF")
     3362                     (NSUBST-IF-NOT "NSUBST_IF_NOT")
     3363                     (NSUBSTITUTE "NSUBSTITUTE")
     3364                     (NSUBSTITUTE-IF "NSUBSTITUTE_IF")
     3365                     (NSUBSTITUTE-IF-NOT "NSUBSTITUTE_IF_NOT")
     3366                     (NTH "NTH")
     3367                     (NTH-VALUE "NTH_VALUE")
     3368                     (NTHCDR "NTHCDR")
     3369                     (NULL "NULL")
     3370                     (NUMBER "NUMBER")
     3371                     (NUMBERP "NUMBERP")
     3372                     (NUMERATOR "NUMERATOR")
     3373                     (NUNION "NUNION")
     3374                     (ODDP "ODDP")
     3375                     (OPEN "OPEN")
     3376                     (OPEN-STREAM-P "OPEN_STREAM_P")
     3377                     (OPTIMIZE "OPTIMIZE")
     3378                     (OR "OR")
     3379                     (OTHERWISE "OTHERWISE")
     3380                     (OUTPUT-STREAM-P "OUTPUT_STREAM_P")
     3381                     (PACKAGE "PACKAGE")
     3382                     (PACKAGE-ERROR "PACKAGE_ERROR")
     3383                     (PACKAGE-ERROR-PACKAGE "PACKAGE_ERROR_PACKAGE")
     3384                     (PACKAGE-NAME "PACKAGE_NAME")
     3385                     (PACKAGE-NICKNAMES "PACKAGE_NICKNAMES")
     3386                     (PACKAGE-SHADOWING-SYMBOLS "PACKAGE_SHADOWING_SYMBOLS")
     3387                     (PACKAGE-USE-LIST "PACKAGE_USE_LIST")
     3388                     (PACKAGE-USED-BY-LIST "PACKAGE_USED_BY_LIST")
     3389                     (PACKAGEP "PACKAGEP")
     3390                     (PAIRLIS "PAIRLIS")
     3391                     (PARSE-ERROR "PARSE_ERROR")
     3392                     (PARSE-INTEGER "PARSE_INTEGER")
     3393                     (PARSE-NAMESTRING "PARSE_NAMESTRING")
     3394                     (PATHNAME "PATHNAME")
     3395                     (PATHNAME-DEVICE "PATHNAME_DEVICE")
     3396                     (PATHNAME-DIRECTORY "PATHNAME_DIRECTORY")
     3397                     (PATHNAME-HOST "PATHNAME_HOST")
     3398                     (PATHNAME-MATCH-P "PATHNAME_MATCH_P")
     3399                     (PATHNAME-NAME "PATHNAME_NAME")
     3400                     (PATHNAME-TYPE "PATHNAME_TYPE")
     3401                     (PATHNAME-VERSION "PATHNAME_VERSION")
     3402                     (PATHNAMEP "PATHNAMEP")
     3403                     (PEEK-CHAR "PEEK_CHAR")
     3404                     (PHASE "PHASE")
     3405                     (PI "PI")
     3406                     (PLUSP "PLUSP")
     3407                     (POP "POP")
     3408                     (POSITION "POSITION")
     3409                     (POSITION-IF "POSITION_IF")
     3410                     (POSITION-IF-NOT "POSITION_IF_NOT")
     3411                     (PPRINT "PPRINT")
     3412                     (PPRINT-DISPATCH "PPRINT_DISPATCH")
     3413                     (PPRINT-EXIT-IF-LIST-EXHAUSTED "PPRINT_EXIT_IF_LIST_EXHAUSTED")
     3414                     (PPRINT-FILL "PPRINT_FILL")
     3415                     (PPRINT-INDENT "PPRINT_INDENT")
     3416                     (PPRINT-LINEAR "PPRINT_LINEAR")
     3417                     (PPRINT-LOGICAL-BLOCK "PPRINT_LOGICAL_BLOCK")
     3418                     (PPRINT-NEWLINE "PPRINT_NEWLINE")
     3419                     (PPRINT-POP "PPRINT_POP")
     3420                     (PPRINT-TAB "PPRINT_TAB")
     3421                     (PPRINT-TABULAR "PPRINT_TABULAR")
     3422                     (PRIN1 "PRIN1")
     3423                     (PRIN1-TO-STRING "PRIN1_TO_STRING")
     3424                     (PRINC "PRINC")
     3425                     (PRINC-TO-STRING "PRINC_TO_STRING")
     3426                     (PRINT "PRINT")
     3427                     (PRINT-NOT-READABLE "PRINT_NOT_READABLE")
     3428                     (PRINT-NOT-READABLE-OBJECT "PRINT_NOT_READABLE_OBJECT")
     3429                     (PRINT-OBJECT "PRINT_OBJECT")
     3430                     (PRINT-UNREADABLE-OBJECT "PRINT_UNREADABLE_OBJECT")
     3431                     (PROBE-FILE "PROBE_FILE")
     3432                     (PROCLAIM "PROCLAIM")
     3433                     (PROG "PROG")
     3434                     (PROG* "PROG_STAR")
     3435                     (PROG1 "PROG1")
     3436                     (PROG2 "PROG2")
     3437                     (PROGN "PROGN")
     3438                     (PROGRAM-ERROR "PROGRAM_ERROR")
     3439                     (PROGV "PROGV")
     3440                     (PROVIDE "PROVIDE")
     3441                     (PSETF "PSETF")
     3442                     (PSETQ "PSETQ")
     3443                     (PUSH "PUSH")
     3444                     (PUSHNEW "PUSHNEW")
     3445                     (QUOTE "QUOTE")
     3446                     (RANDOM "RANDOM")
     3447                     (RANDOM-STATE "RANDOM_STATE")
     3448                     (RANDOM-STATE-P "RANDOM_STATE_P")
     3449                     (RASSOC "RASSOC")
     3450                     (RASSOC-IF "RASSOC_IF")
     3451                     (RASSOC-IF-NOT "RASSOC_IF_NOT")
     3452                     (RATIO "RATIO")
     3453                     (RATIONAL "RATIONAL")
     3454                     (RATIONALIZE "RATIONALIZE")
     3455                     (RATIONALP "RATIONALP")
     3456                     (READ "READ")
     3457                     (READ-BYTE "READ_BYTE")
     3458                     (READ-CHAR "READ_CHAR")
     3459                     (READ-CHAR-NO-HANG "READ_CHAR_NO_HANG")
     3460                     (READ-DELIMITED-LIST "READ_DELIMITED_LIST")
     3461                     (READ-FROM-STRING "READ_FROM_STRING")
     3462                     (READ-LINE "READ_LINE")
     3463                     (READ-PRESERVING-WHITESPACE "READ_PRESERVING_WHITESPACE")
     3464                     (READ-SEQUENCE "READ_SEQUENCE")
     3465                     (READER-ERROR "READER_ERROR")
     3466                     (READTABLE "READTABLE")
     3467                     (READTABLE-CASE "READTABLE_CASE")
     3468                     (READTABLEP "READTABLEP")
     3469                     (REAL "REAL")
     3470                     (REALP "REALP")
     3471                     (REALPART "REALPART")
     3472                     (REDUCE "REDUCE")
     3473                     (REINITIALIZE-INSTANCE "REINITIALIZE_INSTANCE")
     3474                     (REM "REM")
     3475                     (REMF "REMF")
     3476                     (REMHASH "REMHASH")
     3477                     (REMOVE "REMOVE")
     3478                     (REMOVE-DUPLICATES "REMOVE_DUPLICATES")
     3479                     (REMOVE-IF "REMOVE_IF")
     3480                     (REMOVE-IF-NOT "REMOVE_IF_NOT")
     3481                     (REMOVE-METHOD "REMOVE_METHOD")
     3482                     (REMPROP "REMPROP")
     3483                     (RENAME-FILE "RENAME_FILE")
     3484                     (RENAME-PACKAGE "RENAME_PACKAGE")
     3485                     (REPLACE "REPLACE")
     3486                     (REQUIRE "REQUIRE")
     3487                     (REST "REST")
     3488                     (RESTART "RESTART")
     3489                     (RESTART-BIND "RESTART_BIND")
     3490                     (RESTART-CASE "RESTART_CASE")
     3491                     (RESTART-NAME "RESTART_NAME")
     3492                     (RETURN "RETURN")
     3493                     (RETURN-FROM "RETURN_FROM")
     3494                     (REVAPPEND "REVAPPEND")
     3495                     (REVERSE "REVERSE")
     3496                     (ROOM "ROOM")
     3497                     (ROTATEF "ROTATEF")
     3498                     (ROUND "ROUND")
     3499                     (ROW-MAJOR-AREF "ROW_MAJOR_AREF")
     3500                     (RPLACA "RPLACA")
     3501                     (RPLACD "RPLACD")
     3502                     (SAFETY "SAFETY")
     3503                     (SATISFIES "SATISFIES")
     3504                     (SBIT "SBIT")
     3505                     (SCALE-FLOAT "SCALE_FLOAT")
     3506                     (SCHAR "SCHAR")
     3507                     (SEARCH "SEARCH")
     3508                     (SECOND "SECOND")
     3509                     (SEQUENCE "SEQUENCE")
     3510                     (SERIOUS-CONDITION "SERIOUS_CONDITION")
     3511                     (SET "SET")
     3512                     (SET-DIFFERENCE "SET_DIFFERENCE")
     3513                     (SET-DISPATCH-MACRO-CHARACTER "SET_DISPATCH_MACRO_CHARACTER")
     3514                     (SET-EXCLUSIVE-OR "SET_EXCLUSIVE_OR")
     3515                     (SET-MACRO-CHARACTER "SET_MACRO_CHARACTER")
     3516                     (SET-PPRINT-DISPATCH "SET_PPRINT_DISPATCH")
     3517                     (SET-SYNTAX-FROM-CHAR "SET_SYNTAX_FROM_CHAR")
     3518                     (SETF "SETF")
     3519                     (SETQ "SETQ")
     3520                     (SEVENTH "SEVENTH")
     3521                     (SHADOW "SHADOW")
     3522                     (SHADOWING-IMPORT "SHADOWING_IMPORT")
     3523                     (SHARED-INITIALIZE "SHARED_INITIALIZE")
     3524                     (SHIFTF "SHIFTF")
     3525                     (SHORT-FLOAT "SHORT_FLOAT")
     3526                     (SHORT-FLOAT-EPSILON "SHORT_FLOAT_EPSILON")
     3527                     (SHORT-FLOAT-NEGATIVE-EPSILON "SHORT_FLOAT_NEGATIVE_EPSILON")
     3528                     (SHORT-SITE-NAME "SHORT_SITE_NAME")
     3529                     (SIGNAL "SIGNAL")
     3530                     (SIGNED-BYTE "SIGNED_BYTE")
     3531                     (SIGNUM "SIGNUM")
     3532                     (SIMPLE-ARRAY "SIMPLE_ARRAY")
     3533                     (SIMPLE-BASE-STRING "SIMPLE_BASE_STRING")
     3534                     (SIMPLE-BIT-VECTOR "SIMPLE_BIT_VECTOR")
     3535                     (SIMPLE-BIT-VECTOR-P "SIMPLE_BIT_VECTOR_P")
     3536                     (SIMPLE-CONDITION "SIMPLE_CONDITION")
     3537                     (SIMPLE-CONDITION-FORMAT-ARGUMENTS "SIMPLE_CONDITION_FORMAT_ARGUMENTS")
     3538                     (SIMPLE-CONDITION-FORMAT-CONTROL "SIMPLE_CONDITION_FORMAT_CONTROL")
     3539                     (SIMPLE-ERROR "SIMPLE_ERROR")
     3540                     (SIMPLE-STRING "SIMPLE_STRING")
     3541                     (SIMPLE-STRING-P "SIMPLE_STRING_P")
     3542                     (SIMPLE-TYPE-ERROR "SIMPLE_TYPE_ERROR")
     3543                     (SIMPLE-VECTOR "SIMPLE_VECTOR")
     3544                     (SIMPLE-VECTOR-P "SIMPLE_VECTOR_P")
     3545                     (SIMPLE-WARNING "SIMPLE_WARNING")
     3546                     (SIN "SIN")
     3547                     (SINGLE-FLOAT "SINGLE_FLOAT")
     3548                     (SINGLE-FLOAT-EPSILON "SINGLE_FLOAT_EPSILON")
     3549                     (SINGLE-FLOAT-NEGATIVE-EPSILON "SINGLE_FLOAT_NEGATIVE_EPSILON")
     3550                     (SINH "SINH")
     3551                     (SIXTH "SIXTH")
     3552                     (SLEEP "SLEEP")
     3553                     (SLOT-BOUNDP "SLOT_BOUNDP")
     3554                     (SLOT-EXISTS-P "SLOT_EXISTS_P")
     3555                     (SLOT-MAKUNBOUND "SLOT_MAKUNBOUND")
     3556                     (SLOT-MISSING "SLOT_MISSING")
     3557                     (SLOT-UNBOUND "SLOT_UNBOUND")
     3558                     (SLOT-VALUE "SLOT_VALUE")
     3559                     (SOFTWARE-TYPE "SOFTWARE_TYPE")
     3560                     (SOFTWARE-VERSION "SOFTWARE_VERSION")
     3561                     (SOME "SOME")
     3562                     (SORT "SORT")
     3563                     (SPACE "SPACE")
     3564                     (SPECIAL "SPECIAL")
     3565                     (SPECIAL-OPERATOR-P "SPECIAL_OPERATOR_P")
     3566                     (SPEED "SPEED")
     3567                     (SQRT "SQRT")
     3568                     (STABLE-SORT "STABLE_SORT")
     3569                     (STANDARD "STANDARD")
     3570                     (STANDARD-CHAR "STANDARD_CHAR")
     3571                     (STANDARD-CHAR-P "STANDARD_CHAR_P")
     3572                     (STANDARD-CLASS "STANDARD_CLASS")
     3573                     (STANDARD-GENERIC-FUNCTION "STANDARD_GENERIC_FUNCTION")
     3574                     (STANDARD-METHOD "STANDARD_METHOD")
     3575                     (STANDARD-OBJECT "STANDARD_OBJECT")
     3576                     (STEP "STEP")
     3577                     (STORAGE-CONDITION "STORAGE_CONDITION")
     3578                     (STORE-VALUE "STORE_VALUE")
     3579                     (STREAM "STREAM")
     3580                     (STREAM-ELEMENT-TYPE "STREAM_ELEMENT_TYPE")
     3581                     (STREAM-ERROR "STREAM_ERROR")
     3582                     (STREAM-ERROR-STREAM "STREAM_ERROR_STREAM")
     3583                     (STREAM-EXTERNAL-FORMAT "STREAM_EXTERNAL_FORMAT")
     3584                     (STREAMP "STREAMP")
     3585                     (STRING "STRING")
     3586                     (STRING-CAPITALIZE "STRING_CAPITALIZE")
     3587                     (STRING-DOWNCASE "STRING_DOWNCASE")
     3588                     (STRING-EQUAL "STRING_EQUAL")
     3589                     (STRING-GREATERP "STRING_GREATERP")
     3590                     (STRING-LEFT-TRIM "STRING_LEFT_TRIM")
     3591                     (STRING-LESSP "STRING_LESSP")
     3592                     (STRING-NOT-EQUAL "STRING_NOT_EQUAL")
     3593                     (STRING-NOT-GREATERP "STRING_NOT_GREATERP")
     3594                     (STRING-NOT-LESSP "STRING_NOT_LESSP")
     3595                     (STRING-RIGHT-TRIM "STRING_RIGHT_TRIM")
     3596                     (STRING-STREAM "STRING_STREAM")
     3597                     (STRING-TRIM "STRING_TRIM")
     3598                     (STRING-UPCASE "STRING_UPCASE")
     3599                     (STRING/= "STRING_NE")
     3600                     (STRING< "STRING_LT")
     3601                     (STRING<= "STRING_LE")
     3602                     (STRING= "STRING_EQUALS")
     3603                     (STRING> "STRING_GT")
     3604                     (STRING>= "STRING_GE")
     3605                     (STRINGP "STRINGP")
     3606                     (STRUCTURE "STRUCTURE")
     3607                     (STRUCTURE-CLASS "STRUCTURE_CLASS")
     3608                     (STRUCTURE-OBJECT "STRUCTURE_OBJECT")
     3609                     (STYLE-WARNING "STYLE_WARNING")
     3610                     (SUBLIS "SUBLIS")
     3611                     (SUBSEQ "SUBSEQ")
     3612                     (SUBSETP "SUBSETP")
     3613                     (SUBST "SUBST")
     3614                     (SUBST-IF "SUBST_IF")
     3615                     (SUBST-IF-NOT "SUBST_IF_NOT")
     3616                     (SUBSTITUTE "SUBSTITUTE")
     3617                     (SUBSTITUTE-IF "SUBSTITUTE_IF")
     3618                     (SUBSTITUTE-IF-NOT "SUBSTITUTE_IF_NOT")
     3619                     (SUBTYPEP "SUBTYPEP")
     3620                     (SVREF "SVREF")
     3621                     (SXHASH "SXHASH")
     3622                     (SYMBOL "SYMBOL")
     3623                     (SYMBOL-FUNCTION "SYMBOL_FUNCTION")
     3624                     (SYMBOL-MACROLET "SYMBOL_MACROLET")
     3625                     (SYMBOL-NAME "SYMBOL_NAME")
     3626                     (SYMBOL-PACKAGE "SYMBOL_PACKAGE")
     3627                     (SYMBOL-PLIST "SYMBOL_PLIST")
     3628                     (SYMBOL-VALUE "SYMBOL_VALUE")
     3629                     (SYMBOLP "SYMBOLP")
     3630                     (SYNONYM-STREAM "SYNONYM_STREAM")
     3631                     (SYNONYM-STREAM-SYMBOL "SYNONYM_STREAM_SYMBOL")
     3632                     (T "T")
     3633                     (TAGBODY "TAGBODY")
     3634                     (TAILP "TAILP")
     3635                     (TAN "TAN")
     3636                     (TANH "TANH")
     3637                     (TENTH "TENTH")
     3638                     (TERPRI "TERPRI")
     3639                     (THE "THE")
     3640                     (THIRD "THIRD")
     3641                     (THROW "THROW")
     3642                     (TIME "TIME")
     3643                     (TRACE "TRACE")
     3644                     (TRANSLATE-LOGICAL-PATHNAME "TRANSLATE_LOGICAL_PATHNAME")
     3645                     (TRANSLATE-PATHNAME "TRANSLATE_PATHNAME")
     3646                     (TREE-EQUAL "TREE_EQUAL")
     3647                     (TRUENAME "TRUENAME")
     3648                     (TRUNCATE "TRUNCATE")
     3649                     (TWO-WAY-STREAM "TWO_WAY_STREAM")
     3650                     (TWO-WAY-STREAM-INPUT-STREAM "TWO_WAY_STREAM_INPUT_STREAM")
     3651                     (TWO-WAY-STREAM-OUTPUT-STREAM "TWO_WAY_STREAM_OUTPUT_STREAM")
     3652                     (TYPE "TYPE")
     3653                     (TYPE-ERROR "TYPE_ERROR")
     3654                     (TYPE-ERROR-DATUM "TYPE_ERROR_DATUM")
     3655                     (TYPE-ERROR-EXPECTED-TYPE "TYPE_ERROR_EXPECTED_TYPE")
     3656                     (TYPE-OF "TYPE_OF")
     3657                     (TYPECASE "TYPECASE")
     3658                     (TYPEP "TYPEP")
     3659                     (UNBOUND-SLOT "UNBOUND_SLOT")
     3660                     (UNBOUND-SLOT-INSTANCE "UNBOUND_SLOT_INSTANCE")
     3661                     (UNBOUND-VARIABLE "UNBOUND_VARIABLE")
     3662                     (UNDEFINED-FUNCTION "UNDEFINED_FUNCTION")
     3663                     (UNEXPORT "UNEXPORT")
     3664                     (UNINTERN "UNINTERN")
     3665                     (UNION "UNION")
     3666                     (UNLESS "UNLESS")
     3667                     (UNREAD-CHAR "UNREAD_CHAR")
     3668                     (UNSIGNED-BYTE "UNSIGNED_BYTE")
     3669                     (UNTRACE "UNTRACE")
     3670                     (UNUSE-PACKAGE "UNUSE_PACKAGE")
     3671                     (UNWIND-PROTECT "UNWIND_PROTECT")
     3672                     (UPDATE-INSTANCE-FOR-DIFFERENT-CLASS "UPDATE_INSTANCE_FOR_DIFFERENT_CLASS")
     3673                     (UPDATE-INSTANCE-FOR-REDEFINED-CLASS "UPDATE_INSTANCE_FOR_REDEFINED_CLASS")
     3674                     (UPGRADED-ARRAY-ELEMENT-TYPE "UPGRADED_ARRAY_ELEMENT_TYPE")
     3675                     (UPGRADED-COMPLEX-PART-TYPE "UPGRADED_COMPLEX_PART_TYPE")
     3676                     (UPPER-CASE-P "UPPER_CASE_P")
     3677                     (USE-PACKAGE "USE_PACKAGE")
     3678                     (USE-VALUE "USE_VALUE")
     3679                     (USER-HOMEDIR-PATHNAME "USER_HOMEDIR_PATHNAME")
     3680                     (VALUES "VALUES")
     3681                     (VALUES-LIST "VALUES_LIST")
     3682                     (VARIABLE "VARIABLE")
     3683                     (VECTOR "VECTOR")
     3684                     (VECTOR-POP "VECTOR_POP")
     3685                     (VECTOR-PUSH "VECTOR_PUSH")
     3686                     (VECTOR-PUSH-EXTEND "VECTOR_PUSH_EXTEND")
     3687                     (VECTORP "VECTORP")
     3688                     (WARN "WARN")
     3689                     (WARNING "WARNING")
     3690                     (WHEN "WHEN")
     3691                     (WILD-PATHNAME-P "WILD_PATHNAME_P")
     3692                     (WITH-ACCESSORS "WITH_ACCESSORS")
     3693                     (WITH-COMPILATION-UNIT "WITH_COMPILATION_UNIT")
     3694                     (WITH-CONDITION-RESTARTS "WITH_CONDITION_RESTARTS")
     3695                     (WITH-HASH-TABLE-ITERATOR "WITH_HASH_TABLE_ITERATOR")
     3696                     (WITH-INPUT-FROM-STRING "WITH_INPUT_FROM_STRING")
     3697                     (WITH-OPEN-FILE "WITH_OPEN_FILE")
     3698                     (WITH-OPEN-STREAM "WITH_OPEN_STREAM")
     3699                     (WITH-OUTPUT-TO-STRING "WITH_OUTPUT_TO_STRING")
     3700                     (WITH-PACKAGE-ITERATOR "WITH_PACKAGE_ITERATOR")
     3701                     (WITH-SIMPLE-RESTART "WITH_SIMPLE_RESTART")
     3702                     (WITH-SLOTS "WITH_SLOTS")
     3703                     (WITH-STANDARD-IO-SYNTAX "WITH_STANDARD_IO_SYNTAX")
     3704                     (WRITE "WRITE")
     3705                     (WRITE-BYTE "WRITE_BYTE")
     3706                     (WRITE-CHAR "WRITE_CHAR")
     3707                     (WRITE-LINE "WRITE_LINE")
     3708                     (WRITE-SEQUENCE "WRITE_SEQUENCE")
     3709                     (WRITE-STRING "WRITE_STRING")
     3710                     (WRITE-TO-STRING "WRITE_TO_STRING")
     3711                     (Y-OR-N-P "Y_OR_N_P")
     3712                     (YES-OR-NO-P "YES_OR_NO_P")
     3713                     (ZEROP "ZEROP")))
     3714      (let ((symbol (car entry))
     3715            (name (cadr entry)))
     3716        (puthash symbol cl-symbol-names name))))
     3717
     3718  (initialize-symbol-names)
     3719
     3720  (defun lookup-cl-symbol (symbol)
     3721    (gethash-2op-1ret symbol cl-symbol-names)))
     3722
    27343723(declaim (ftype (function (symbol) string) declare-symbol))
    27353724(defun declare-symbol (symbol)
     
    35534542;;                  (format t "saving variables...~%")
    35544543;;                  (setf saved-vars (save-variables (compiland-arg-vars compiland)))))
    3555              (emit 'getstatic *this-class* (declare-symbol op) +lisp-symbol+)))
     4544
     4545             (let ((name (and (eq (symbol-package op) +cl-package+) (lookup-cl-symbol op))))
     4546               (if name
     4547                   (emit 'getstatic +lisp-symbol-class+ name +lisp-symbol+)
     4548                   (emit 'getstatic *this-class* (declare-symbol op) +lisp-symbol+)))
     4549             ))
    35564550      (process-args args)
    35574551      (if (> *speed* *debug*)
Note: See TracChangeset for help on using the changeset viewer.