src/code/early-constants.lisp

   1 ;;;; This software is part of the SBCL system. See the README file for
   2 ;;;; more information.
   3 ;;;;
   4 ;;;; This software is derived from the CMU CL system, which was
   5 ;;;; written at Carnegie Mellon University and released into the
   6 ;;;; public domain. The software is in the public domain and is
   7 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
   8 ;;;; files for more information.
   9
  10 (in-package "SB-IMPL")
  11
  12 (defconstant-eqx lambda-list-keywords
  13     '(&allow-other-keys
  14       &aux
  15       &body
  16       &environment
  17       &key
  18       &more
  19       &optional
  20       &rest
  21       &whole)
  22   #'equal
  23   "A list of symbols used as lambda list keywords in SBCL.")
  24
  25 ;;; The BOOLE function dispaches to any logic operation depending on
  26 ;;; the value of an argument. Presently, legal selector values are [0..15].
  27 ;;; BOOLE is open coded for calls with any of the constants declared below.
  28
  29 (defconstant boole-clr 0
  30   "Boole function op, makes BOOLE return 0.")
  31
  32 (defconstant boole-set 1
  33   "Boole function op, makes BOOLE return -1.")
  34
  35 (defconstant boole-1   2
  36   "Boole function op, makes BOOLE return integer1.")
  37
  38 (defconstant boole-2   3
  39   "Boole function op, makes BOOLE return integer2.")
  40
  41 (defconstant boole-c1  4
  42   "Boole function op, makes BOOLE return complement of integer1.")
  43
  44 (defconstant boole-c2  5
  45   "Boole function op, makes BOOLE return complement of integer2.")
  46
  47 (defconstant boole-and 6
  48   "Boole function op, makes BOOLE return logand of integer1 and integer2.")
  49
  50 (defconstant boole-ior 7
  51   "Boole function op, makes BOOLE return logior of integer1 and integer2.")
  52
  53 (defconstant boole-xor 8
  54   "Boole function op, makes BOOLE return logxor of integer1 and integer2.")
  55
  56 (defconstant boole-eqv 9
  57   "Boole function op, makes BOOLE return logeqv of integer1 and integer2.")
  58
  59 (defconstant boole-nand  10
  60   "Boole function op, makes BOOLE return log nand of integer1 and integer2.")
  61
  62 (defconstant boole-nor   11
  63   "Boole function op, makes BOOLE return lognor of integer1 and integer2.")
  64
  65 (defconstant boole-andc1 12
  66   "Boole function op, makes BOOLE return logandc1 of integer1 and integer2.")
  67
  68 (defconstant boole-andc2 13
  69   "Boole function op, makes BOOLE return logandc2 of integer1 and integer2.")
  70
  71 (defconstant boole-orc1  14
  72   "Boole function op, makes BOOLE return logorc1 of integer1 and integer2.")
  73
  74 (defconstant boole-orc2  15
  75   "Boole function op, makes BOOLE return logorc2 of integer1 and integer2.")