Home Explore Help
Sign In
reduce-algebra
/
reduce-historical
mirror of git://github.com/reduce-algebra/reduce-historical
Watch 2
Star 1
Fork 0
Files Issues
Branch: master
Branches Tags
reduce-histo...
/
r37
/
lisp
/
csl
/
cslbase
/
clsyms.h

clsyms.h 2.2 KB
Permalink History Raw

12345678910111213141516171819202122232425262728293031323334353637383940414243444546 
  1. /* clsyms.h                          Copyright (C) Codemist Ltd, 1994-2002 */
    2. 

  2. 

  3. 

  4. /*
    5. 

  5.  * Header defining the vector of literals just used in Common Lisp mode.
    6. 

  6.  */
    7. 

  7. 

  8. /*
    9. 

  9.  * This code may be used and modified, and redistributed in binary
    10. 

  10.  * or source form, subject to the "CCL Public License", which should
    11. 

  11.  * accompany it. This license is a variant on the BSD license, and thus
    12. 

  12.  * permits use of code derived from this in either open and commercial
    13. 

  13.  * projects: but it does require that updates to this code be made
    14. 

  14.  * available back to the originators of the package.
    15. 

  15.  * Before merging other code in with this or linking this code
    16. 

  16.  * with other packages or libraries please check that the license terms
    17. 

  17.  * of the other material are compatible with those of this.
    18. 

  18.  */
    19. 

  19. 

  20. /* Signature: 5bf74b6b 08-Apr-2002 */
    21. 

  21. 

  22. #ifndef header_clsyms_h
    23. 

  23. #define header_clsyms_h 1
    24. 

  24. 

  25. #define nicknames_symbol  elt(qvalue(cl_symbols), 0)  /* :nicknames       */
    26. 

  26. #define use_symbol        elt(qvalue(cl_symbols), 1)  /* :use             */
    27. 

  27. #define and_symbol        elt(qvalue(cl_symbols), 2)  /* and              */
    28. 

  28. #define or_symbol         elt(qvalue(cl_symbols), 3)  /* or               */
    29. 

  29. #define not_symbol        elt(qvalue(cl_symbols), 4)  /* not              */
    30. 

  30. #define reader_workspace  elt(qvalue(cl_symbols), 5)  /* Used for #:x     */
    31. 

  31. #define named_character   elt(qvalue(cl_symbols), 6)  /* :named-character */
    32. 

  32. #define read_float_format elt(qvalue(cl_symbols), 7)  /* *read-default-float-format* */
    33. 

  33. #define short_float       elt(qvalue(cl_symbols), 8)  /* short-float */
    34. 

  34. #define single_float      elt(qvalue(cl_symbols), 9)  /* single-float */
    35. 

  35. #define double_float      elt(qvalue(cl_symbols), 10) /* double-float */
    36. 

  36. #define long_float        elt(qvalue(cl_symbols), 11) /* long-float */
    37. 

  37. #define bit_symbol        elt(qvalue(cl_symbols), 12) /* bit */
    38. 

  38. #define pathname_symbol   elt(qvalue(cl_symbols), 13) /* pathname */
    39. 

  39. #define print_array_sym   elt(qvalue(cl_symbols), 14) /* *print-array* */
    40. 

  40. #define read_base         elt(qvalue(cl_symbols), 15) /* *read-base* */
    41. 

  41. #define initial_element   elt(qvalue(cl_symbols), 16) /* :initial-element */
    42. 

  42. 

  43. #endif /* header_clsyms_h */
    44. 

  44. 

  45. /* end of clsyms.h */
    46. 

  46.