Skip to content
Snippets Groups Projects
Commit c6cafb7f authored by pw's avatar pw
Browse files

Export type boolean from common-lisp package.

parent 0c6403d4
No related branches found
No related tags found
No related merge requests found
......@@ -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))
......
......@@ -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))
......
......@@ -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"
......
......@@ -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))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment