/* clsyms.h Copyright (C) Codemist Ltd, 1994-96 */
/*
* Header defining the vector of literals just used in Common Lisp mode.
*/
/* Signature: 3b2210a6 09-Apr-1996 */
#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 */