(setf reversed-result
(append (reverse
(multiple-value-list
- (sb!c::%more-arg-values context count)))
+ (sb!c::%more-arg-values context 0 count)))
reversed-result))
(return-from enumerating))
(push (make-unprintable-object "unavailable &MORE argument")
(butlast args 2)
(if (fixnump count)
(multiple-value-list
- (sb!c:%more-arg-values context count))
+ (sb!c:%more-arg-values context 0 count))
(list
(make-unprintable-object "more unavailable arguments")))))
args)
(when (and more-context more-count)
(format *debug-io* "~S = ~S~%"
'more
- (multiple-value-list (sb!c:%more-arg-values more-context more-count))))
+ (multiple-value-list (sb!c:%more-arg-values more-context 0 more-count))))
(cond
((not any-p)
(format *debug-io*
\f
;;;; source location printing
-;;; Stuff to clean up before saving a core
-(defun debug-deinit ()
- ;; Nothing to do right now. Once there was, maybe once there
- ;; will be again.
- )
-
(defun code-location-source-form (location context &optional (errorp t))
(let* ((start-location (maybe-block-start-location location))
(form-num (sb!di:code-location-form-number start-location)))
(sb!di:debug-var-info-available
(sb!di:code-location-debug-fun
(sb!di:frame-code-location frame))))
-
-;; 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