(let ((*debugger-hook* nil) ; as specifically required by ANSI
(sb!debug:*stack-top-hint* (or sb!debug:*stack-top-hint* 'break)))
(apply #'%break 'break datum arguments)))
(let ((*debugger-hook* nil) ; as specifically required by ANSI
(sb!debug:*stack-top-hint* (or sb!debug:*stack-top-hint* 'break)))
(apply #'%break 'break datum arguments)))