(pprint-indent :current 8)
(dotimes (i (- (get-closure-length x) (1- sb-vm:closure-info-offset)))
(format s "~@:_~S: ~S" i (%closure-index-ref x i)))))
(pprint-indent :current 8)
(dotimes (i (- (get-closure-length x) (1- sb-vm:closure-info-offset)))
(format s "~@:_~S: ~S" i (%closure-index-ref x i)))))
(%describe-fun-compiled x s kind name))
(#.sb-vm:funcallable-instance-header-widetag
;; Only STANDARD-GENERIC-FUNCTION would be handled here, but
(%describe-fun-compiled x s kind name))
(#.sb-vm:funcallable-instance-header-widetag
;; Only STANDARD-GENERIC-FUNCTION would be handled here, but