;;; This in turn will distribute the notice to those threads we are
;;; interested using SIGPROF.
(defun thread-distribution-handler ()
- (declare (optimize sb-c::merge-tail-calls))
+ (declare (optimize speed (space 0)))
(when *sampling*
#+sb-thread
(let ((lock *distribution-lock*))
(if (and (consp name)
(member (first name)
'(sb-c::xep sb-c::tl-xep sb-c::&more-processor
- sb-c::varargs-entry
sb-c::top-level-form
- sb-c::hairy-arg-processor
sb-c::&optional-processor)))
(second name)
name)))