Changeset 3679 for trunk/j/src/org/armedbear/lisp/boot.lisp

Timestamp:

09/10/03 18:01:35 (20 years ago)

Author:

piso

Message:

BOOLE constants.

File:

• trunk/j/src/org/armedbear/lisp/boot.lisp (modified) (2 diffs)

trunk/j/src/org/armedbear/lisp/boot.lisp

@@ -2 +2 @@
 ;;;
 ;;; Copyright (C) 2003 Peter Graves
-;;; $Id: boot.lisp,v 1.104 2003-09-09 23:19:47 piso Exp $
+;;; $Id: boot.lisp,v 1.105 2003-09-10 18:01:35 piso Exp $
 ;;;
 ;;; This program is free software; you can redistribute it and/or
@@ -156 +156 @@
 
 (defconstant internal-time-units-per-second 1000)
+
+(defconstant boole-clr    0)
+(defconstant boole-set    1)
+(defconstant boole-1      2)
+(defconstant boole-2      3)
+(defconstant boole-c1     4)
+(defconstant boole-c2     5)
+(defconstant boole-and    6)
+(defconstant boole-ior    7)
+(defconstant boole-xor    8)
+(defconstant boole-eqv    9)
+(defconstant boole-nand  10)
+(defconstant boole-nor   11)
+(defconstant boole-andc1 12)
+(defconstant boole-andc2 13)
+(defconstant boole-orc1  14)
+(defconstant boole-orc2  15)