/* clsyms.h Copyright (C) Codemist Ltd, 1994-2007 */ /* * Header defining the vector of literals just used in Common Lisp mode. */ /* * This code may be used and modified, and redistributed in binary * or source form, subject to the "CCL Public License", which should * accompany it. This license is a variant on the BSD license, and thus * permits use of code derived from this in either open and commercial * projects: but it does require that updates to this code be made * available back to the originators of the package. * Before merging other code in with this or linking this code * with other packages or libraries please check that the license terms * of the other material are compatible with those of this. */ /* Signature: 6e19d907 18-Jan-2007 */ #ifndef header_clsyms_h #define header_clsyms_h 1 #define nicknames_symbol elt(qvalue(cl_symbols), 0) /* :nicknames */ #define use_symbol elt(qvalue(cl_symbols), 1) /* :use */ #define and_symbol elt(qvalue(cl_symbols), 2) /* and */ #define or_symbol elt(qvalue(cl_symbols), 3) /* or */ #define not_symbol elt(qvalue(cl_symbols), 4) /* not */ #define reader_workspace elt(qvalue(cl_symbols), 5) /* Used for #:x */ #define named_character elt(qvalue(cl_symbols), 6) /* :named-character */ #define read_float_format elt(qvalue(cl_symbols), 7) /* *read-default-float-format* */ #define short_float elt(qvalue(cl_symbols), 8) /* short-float */ #define single_float elt(qvalue(cl_symbols), 9) /* single-float */ #define double_float elt(qvalue(cl_symbols), 10) /* double-float */ #define long_float elt(qvalue(cl_symbols), 11) /* long-float */ #define bit_symbol elt(qvalue(cl_symbols), 12) /* bit */ #define pathname_symbol elt(qvalue(cl_symbols), 13) /* pathname */ #define print_array_sym elt(qvalue(cl_symbols), 14) /* *print-array* */ #define read_base elt(qvalue(cl_symbols), 15) /* *read-base* */ #define initial_element elt(qvalue(cl_symbols), 16) /* :initial-element */ #endif /* header_clsyms_h */ /* end of clsyms.h */