- (format s "~@:_Its closure environment is:")
- (pprint-logical-block (s nil)
- (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)))))
+ (format s "~&Its closure environment is:")
+ (loop for value in (%closure-values x)
+ for i = 0 then (1+ i)
+ do (format s "~& ~S: ~S" i value)))