X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Finterr.lisp;h=3f2a45d9129065cee22f20acff200d1b6c6d091b;hb=a572ab7de4266dec958d50612a8376df6bb45226;hp=a939c851dda0e89ce414addd0f6da18647b16beb;hpb=fe420bb47ea909070ee82c6e48642c9ff41dbcc8;p=sbcl.git

diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index a939c85..3f2a45d 100644
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -282,6 +282,15 @@
          :datum object
          :expected-type '(unsigned-byte 32)))
 
+(deferr tls-exhausted-error ()
+  ;; There is nothing we can do about it. A number of entries in the
+  ;; tls could be reserved and made available for recovery but since
+  ;; tls indices are never reused it would be kind of silly and
+  ;; without it signalling an error is more than likely to end in a
+  ;; recursive error.
+  (%primitive print "Thread local storage exhausted.")
+  (sb!impl::%halt))
+
 (macrolet
     ((define-simple-array-internal-errors ()
          `(progn