X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ferror.lisp;h=9d8082ba67cd58fae0fb070000b89f963b2ea043;hb=ffa9a31f62e3e2abab8ebcbb3bfdab9725feaf7f;hp=aae384bf1f1cccdc14d855dcfb0079f1aa4c1484;hpb=89c5e67daff0215420fb0998b8e20915ddea1437;p=sbcl.git

diff --git a/src/code/error.lisp b/src/code/error.lisp
index aae384b..9d8082b 100644
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -121,3 +121,9 @@
       (format stream
              "Control stack exhausted (no more space for function call frames).  This is probably due to heavily nested or infinitely recursive function calls, or a tail call that SBCL cannot or has not optimized away."))))
 
+(define-condition memory-fault-error (error)
+  ()
+  (:report
+   (lambda (condition stream)
+     (declare (ignore condition))
+     (format stream "memory fault"))))
\ No newline at end of file