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))