reduce-historical/r36/cslbase/clsyms.h

/* 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 */