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