1.0.16.21: lose informatively when the tls is full

1.0.16.21: lose informatively when the tls is full

  Instead of eventually producing a segv or some random corruption:

  (progv (loop for i below 5000
               collect (make-symbol (format nil "xxx~D" i)))
         (loop for i below 5000 collect i))