(let ((*current-error-depth* (1+ *current-error-depth*)))
(/show0 "in INFINITE-ERROR-PROTECT, incremented error depth")
;; arbitrary truncation
- #!+sb-show (sb!debug:backtrace 8)
+ #!+sb-show (sb!debug:print-backtrace :count 8)
,@forms)))
;;; a helper function for INFINITE-ERROR-PROTECT
(when (or (not (realp seconds))
(minusp seconds))
(error 'simple-type-error
- :format-control "Invalid argument to SLEEP: -1, ~
+ :format-control "Invalid argument to SLEEP: ~S, ~
should be a non-negative real."
:format-arguments (list seconds)
:datum seconds