From d4d6cc0b6ebb3cb04a671ea3fc84f6a2fc4596ad Mon Sep 17 00:00:00 2001
From: pmai <pmai>
Date: Fri, 9 Sep 2005 19:36:34 +0000
Subject: [PATCH] Small clean up of exports.

---
 code/error.lisp   | 5 +++--
 code/exports.lisp | 4 ++--
 code/interr.lisp  | 7 ++++---
 3 files changed, 9 insertions(+), 7 deletions(-)

diff --git a/code/error.lisp b/code/error.lisp
index fcb790b80..e05778c1a 100644
--- a/code/error.lisp
+++ b/code/error.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/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
diff --git a/code/exports.lisp b/code/exports.lisp
index acdde5a39..ba9567df8 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.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*"
diff --git a/code/interr.lisp b/code/interr.lisp
index 6a593b962..1af99126c 100644
--- a/code/interr.lisp
+++ b/code/interr.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/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))
 
 
 
-- 
GitLab