Skip to content
Snippets Groups Projects
Commit d4d6cc0b authored by pmai's avatar pmai
Browse files

Small clean up of exports.

parent b7192428
No related branches found
No related tags found
No related merge requests found
......@@ -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/error.lisp,v 1.79 2004/03/26 18:22:54 emarsden Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/error.lisp,v 1.80 2005/09/09 19:36:34 pmai Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -22,7 +22,8 @@
(export '(layout-invalid condition-function-name simple-control-error
simple-file-error simple-program-error simple-parse-error
simple-style-warning simple-undefined-function
stack-overflow heap-overflow))
#+stack-checking stack-overflow
#+heap-overflow-check heap-overflow))
(in-package "LISP")
(export '(break error warn cerror
......
......@@ -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.245 2005/06/13 14:29:24 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.246 2005/09/09 19:36:34 pmai Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -1180,7 +1180,7 @@
(:import-from "SYSTEM" "MAKE-INDENTING-STREAM" "INDENTING-STREAM-P" "BINARY-TEXT-STREAM")
(:export "*AFTER-GC-HOOKS*" "*AFTER-SAVE-INITIALIZATIONS*"
"DEBUG"
"FLOATING-POINT-INEXACT"
"FLOATING-POINT-INEXACT" "FLOAT-ACCURACY"
"*ALL-MODIFIER-NAMES*" "*ANSI-DEFSTRUCT-OPTIONS-P*"
"*AUTOLOAD-TRANSLATIONS*"
"*BACKUP-EXTENSION*" "*BEFORE-GC-HOOKS*"
......
......@@ -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/interr.lisp,v 1.43 2003/10/24 02:56:59 toy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/interr.lisp,v 1.44 2005/09/09 19:36:34 pmai Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -18,8 +18,9 @@
(in-package "KERNEL")
(export '(infinite-error-protect find-caller-name *maximum-error-depth*
red-zone-hit yellow-zone-hit
dynamic-space-overflow-error-hit dynamic-space-overflow-warning-hit))
#+stack-checking red-zone-hit #+stack-checking yellow-zone-hit
#+heap-overflow-check dynamic-space-overflow-error-hit
#+heap-overflow-check dynamic-space-overflow-warning-hit))
......
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