(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*