home *** CD-ROM | disk | FTP | other *** search
/ Complete Linux / Complete Linux.iso / docs / devel / lisp / kcl_tar.z / kcl_tar / h / num_include.h < prev    next >
Encoding:
C/C++ Source or Header  |  1987-06-04  |  888 b   |  48 lines
  1. /*
  2. (c) Copyright Taiichi Yuasa and Masami Hagiya, 1984.  All rights reserved.
  3. Copying of this file is authorized to users who have executed the true and
  4. proper "License Agreement for Kyoto Common LISP" with SIGLISP.
  5. */
  6.  
  7. /*
  8.     number routine include file
  9. */
  10.  
  11. #define MASK    0x7fffffff
  12.  
  13. #ifdef MV
  14.  
  15.  
  16. #endif
  17.  
  18. object shortfloat_zero;
  19. object longfloat_zero;
  20. object Sshort_float;
  21. object Ssingle_float;
  22. object Sdouble_float;
  23. object Slong_float;
  24. object Vrandom_state;
  25.  
  26.  
  27. #define BOOLCLR        0
  28. #define BOOLSET        017
  29. #define BOOL1        03
  30. #define BOOL2        05
  31. #define BOOLC1        014
  32. #define BOOLC2        012
  33. #define BOOLAND        01
  34. #define BOOLIOR        07
  35. #define BOOLXOR        06
  36. #define BOOLEQV        011
  37. #define BOOLNAND    016
  38. #define BOOLNOR        010
  39. #define BOOLANDC1    04
  40. #define BOOLANDC2    02
  41. #define BOOLORC1    015
  42. #define BOOLORC2    013
  43.  
  44. #define PI            3.141592653589793
  45.  
  46. #define MOST_POSITIVE_FIX    2147483647
  47. #define MOST_NEGATIVE_FIX    -2147483648
  48.