(!def-debug-command "SLURP" ()
(loop while (read-char-no-hang *standard-input*)))
+;;; RETURN-FROM-FRAME and RESTART-FRAME
+
(defun unwind-to-frame-and-call (frame thunk)
#!+unwind-to-frame-and-call-vop
(flet ((sap-int/fixnum (sap)
(defun find-binding-stack-pointer (frame)
#!-stack-grows-downward-not-upward
+ (declare (ignore frame))
+ #!-stack-grows-downward-not-upward
(error "Not implemented on this architecture")
#!+stack-grows-downward-not-upward
(let ((bsp (sb!vm::binding-stack-pointer-sap))
#!-unwind-to-frame-and-call-vop
(find 'sb!c:debug-catch-tag (sb!di::frame-catches frame) :key #'car))
+;; Hack: ensure that *U-T-F-F* has a tls index.
+#!+unwind-to-frame-and-call-vop
+(let ((sb!vm::*unwind-to-frame-function* (lambda ()))))
+
\f
;;;; debug loop command utilities