Artifact 48848944580c5066d31f565f657a3d17c3765a34f78e8f07aeb1b84027e11521:
- Executable file
r36/cslbase/clsyms.h
— part of check-in
[f2fda60abd]
at
2011-09-02 18:13:33
on branch master
— Some historical releases purely for archival purposes
git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/trunk/historical@1375 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1574) [annotate] [blame] [check-ins using] [more...]
/* 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 */