diff --git a/clx/clx.lisp b/clx/clx.lisp index 93d976d025939fe2877f8c4a11c8bf4fc4ad171e..018ae1a0bfe04a2c5f9fe93ccb03d014e3313ded 100644 --- a/clx/clx.lisp +++ b/clx/clx.lisp @@ -138,6 +138,7 @@ ; (declare (type <mumble> <mumble>-1 <mumble>-2) ; (clx-values boolean))) +#-ANSI-CL (deftype boolean () '(or null (not null))) (deftype card32 () '(unsigned-byte 32)) diff --git a/code/debug-int.lisp b/code/debug-int.lisp index c8b1f354d5d6519787fe19d8c1ae56a3d32a6d83..a89aca2c96b8695592429681d048bec6f084d20b 100644 --- a/code/debug-int.lisp +++ b/code/debug-int.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.90 1998/03/21 23:21:50 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/debug-int.lisp,v 1.91 1998/04/10 11:42:38 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -267,7 +267,7 @@ (id 0 :type c::index) ;; ;; Whether the variable always has a valid value. - (alive-p nil :type c::boolean)) + (alive-p nil :type boolean)) (defun print-debug-variable (obj str n) (declare (ignore n)) @@ -512,7 +512,7 @@ ;; block has no start code-location. In an interpreted-debug-block, this is ;; always nil. This slot is in all debug-blocks since it is an exported ;; interface. - (elsewhere-p nil :type c::boolean)) + (elsewhere-p nil :type boolean)) (defun print-debug-block (obj str n) (declare (ignore n)) diff --git a/code/exports.lisp b/code/exports.lisp index bf187b1573bbf686a1bb779cef460db9416b31fc..f807ae8988916cece7eae41236925bb7aeed6545 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.150 1998/03/30 03:05:50 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.151 1998/04/10 11:42:40 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -328,7 +328,7 @@ "ATOM" "BASE-CHAR" "BASE-STRING" "BIGNUM" "BIT" "BIT-AND" "BIT-ANDC1" "BIT-ANDC2" "BIT-EQV" "BIT-IOR" "BIT-NAND" "BIT-NOR" "BIT-NOT" "BIT-ORC1" "BIT-ORC2" - "BIT-VECTOR" "BIT-VECTOR-P" "BIT-XOR" "BLOCK" "BOOLE" #|"BOOLEAN"|# + "BIT-VECTOR" "BIT-VECTOR-P" "BIT-XOR" "BLOCK" "BOOLE" "BOOLEAN" "BOOLE-1" "BOOLE-2" "BOOLE-AND" "BOOLE-ANDC1" "BOOLE-ANDC2" "BOOLE-C1" "BOOLE-C2" "BOOLE-CLR" "BOOLE-EQV" "BOOLE-IOR" "BOOLE-NAND" "BOOLE-NOR" "BOOLE-ORC1" "BOOLE-ORC2" "BOOLE-SET" @@ -1270,12 +1270,12 @@ "ALTERNATE-GET-GLOBAL-ADDRESS")) (dolist (name - '("*" "ARRAY" "DOUBLE-FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT" + '("*" "ARRAY" "BOOLEAN" "DOUBLE-FLOAT" "FUNCTION" "INTEGER" "LONG-FLOAT" "SINGLE-FLOAT" "UNION" "VALUES")) (intern name "LISP")) (defpackage "ALIEN" (:import-from "LISP" "*" "ARRAY" "DOUBLE-FLOAT" "FUNCTION" - "INTEGER" "LONG-FLOAT" "SINGLE-FLOAT" "UNION" "VALUES") + "BOOLEAN" "INTEGER" "LONG-FLOAT" "SINGLE-FLOAT" "UNION" "VALUES") (:export "*" "ADDR" "ALIEN" "ALIEN-FUNCALL" "ALIEN-SAP" "ALIEN-SIZE" "ARRAY" "BOOLEAN" "CAST" "DEF-ALIEN-ROUTINE" "DEF-ALIEN-TYPE" "DEF-ALIEN-VARIABLE" "DEF-BUILTIN-ALIEN-TYPE" diff --git a/code/lispinit.lisp b/code/lispinit.lisp index eb6e29a7a4f57ca2d660f43037a53e6a0706f90b..1746b790777598dcecf6a71de50a943bea6d3bea 100644 --- a/code/lispinit.lisp +++ b/code/lispinit.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.55 1998/01/16 07:22:15 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/lispinit.lisp,v 1.56 1998/04/10 11:42:42 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -354,7 +354,7 @@ (print-and-call loader-init) (print-and-call package-init) (print-and-call kernel::signal-init) - (setf (alien:extern-alien "internal_errors_enabled" alien:boolean) t) + (setf (alien:extern-alien "internal_errors_enabled" boolean) t) (set-floating-point-modes :traps '(:overflow #-x86 :underflow :invalid :divide-by-zero)) @@ -421,7 +421,7 @@ (stream-reinit) (kernel::signal-init) (gc-init) - (setf (alien:extern-alien "internal_errors_enabled" alien:boolean) t) + (setf (alien:extern-alien "internal_errors_enabled" boolean) t) (set-floating-point-modes :traps '(:overflow #-x86 :underflow :invalid :divide-by-zero))