;;;; detecting and handling exhaustion of memory (stack or heap)

;;;; This software is part of the SBCL system. See the README file for
;;;; more information.
;;;;
;;;; This software is derived from the CMU CL system, which was
;;;; written at Carnegie Mellon University and released into the
;;;; public domain. The software is in the public domain and is
;;;; provided with absolutely no warranty. See the COPYING and CREDITS
;;;; files for more information.

(in-package "SB!KERNEL")

;;; FIXME: Even though this is only called when (> SAFETY (MAX SPEED SPACE))
;;; it's still annoyingly wasteful for it to be a full function call.
;;; It should probably be a VOP calling an assembly routine or something
;;; like that.
(defun %detect-stack-exhaustion ()
  ;; FIXME: Check the stack pointer against *STACK-EXHAUSTION*, and if
  ;; out of range signal an error (in a context where *S-E* has been
  ;; rebound to give some space to let error handling code do its
  ;; thing without new exhaustion problems).
  (values))