- (format t "~&pi-stream: ~S"
- (pipe-display (pi-stream) 10))
- (format t "~&euler-transform: ~S"
- (pipe-display (euler-transform (pi-stream)) 10))
- (format t "~&accelerate-sequence: ~S"
- (pipe-display
- (accelerated-sequence #'euler-transform (pi-stream)) 10))))
+ (format t "~&pi-stream:~& ~S"
+ (pipe-values (pi-stream) 10))
+ (format t "~& pi-stream euler-transform:~& ~S"
+ (pipe-values (euler-transform (pi-stream)) 10))
+ (format t "~& pi-stream accelerate-sequence:~& ~S"
+ (pipe-values
+ (accelerated-sequence #'euler-transform (pi-stream)) 10)))
+ (format t "~&ln2-stream:~& ~S"
+ (pipe-values (ln2-stream) 10))
+ (format t "~& ln2-stream euler-transform:~& ~S"
+ (pipe-values (euler-transform (ln2-stream)) 10))
+ (format t "~& ln2-stream accelerate-sequence:~& ~S"
+ (pipe-values
+ (accelerated-sequence #'euler-transform (ln2-stream)) 10)))
+