src/code/early-cl.lisp

   1 ;;;; miscellaneous stuff about the ANSI standard
   2
   3 ;;;; This software is part of the SBCL system. See the README file for
   4 ;;;; more information.
   5 ;;;;
   6 ;;;; This software is derived from the CMU CL system, which was
   7 ;;;; written at Carnegie Mellon University and released into the
   8 ;;;; public domain. The software is in the public domain and is
   9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
  10 ;;;; files for more information.
  11
  12 (in-package "SB!KERNEL")
  13
  14 ;;; Common Lisp special variables which have SB-XC versions
  15 (proclaim '(special sb!xc:*macroexpand-hook* sb!xc:*gensym-counter*))
  16
  17 ;;; the Common Lisp defined type spec symbols
  18 (defparameter *!standard-type-names*
  19   '(array atom bignum bit bit-vector character compiled-function
  20     complex cons double-float extended-char fixnum float function
  21     hash-table integer keyword list long-float nil null number package
  22     pathname random-state ratio rational real readtable sequence
  23     short-float simple-array simple-bit-vector simple-string simple-vector
  24     single-float standard-char stream string base-char symbol t vector))
  25
  26 (defvar sb!sys::*software-version* nil)
  27
  28 ;;; The BOOLE function dispaches to any logic operation depending on
  29 ;;; the value of an argument. Presently, legal selector values are [0..15].
  30 ;;; BOOLE is open coded for calls with any of the constants declared below.
  31
  32 (defconstant sb!xc:boole-clr 0
  33   "Boole function op, makes BOOLE return 0.")
  34
  35 (defconstant sb!xc:boole-set 1
  36   "Boole function op, makes BOOLE return -1.")
  37
  38 (defconstant sb!xc:boole-1   2
  39   "Boole function op, makes BOOLE return integer1.")
  40
  41 (defconstant sb!xc:boole-2   3
  42   "Boole function op, makes BOOLE return integer2.")
  43
  44 (defconstant sb!xc:boole-c1  4
  45   "Boole function op, makes BOOLE return complement of integer1.")
  46
  47 (defconstant sb!xc:boole-c2  5
  48   "Boole function op, makes BOOLE return complement of integer2.")
  49
  50 (defconstant sb!xc:boole-and 6
  51   "Boole function op, makes BOOLE return logand of integer1 and integer2.")
  52
  53 (defconstant sb!xc:boole-ior 7
  54   "Boole function op, makes BOOLE return logior of integer1 and integer2.")
  55
  56 (defconstant sb!xc:boole-xor 8
  57   "Boole function op, makes BOOLE return logxor of integer1 and integer2.")
  58
  59 (defconstant sb!xc:boole-eqv 9
  60   "Boole function op, makes BOOLE return logeqv of integer1 and integer2.")
  61
  62 (defconstant sb!xc:boole-nand  10
  63   "Boole function op, makes BOOLE return log nand of integer1 and integer2.")
  64
  65 (defconstant sb!xc:boole-nor   11
  66   "Boole function op, makes BOOLE return lognor of integer1 and integer2.")
  67
  68 (defconstant sb!xc:boole-andc1 12
  69   "Boole function op, makes BOOLE return logandc1 of integer1 and integer2.")
  70
  71 (defconstant sb!xc:boole-andc2 13
  72   "Boole function op, makes BOOLE return logandc2 of integer1 and integer2.")
  73
  74 (defconstant sb!xc:boole-orc1  14
  75   "Boole function op, makes BOOLE return logorc1 of integer1 and integer2.")
  76
  77 (defconstant sb!xc:boole-orc2  15
  78   "Boole function op, makes BOOLE return logorc2 of integer1 and integer2.")
  79