- (cond ((not (constantp peekp))
- `(multiple-value-prog1 ,result
- (unless ,peekp ,step)))
- (peekp
- result)
- (t
- `(multiple-value-prog1 ,result
- ,step))))
+ (cond ((not (constantp peekp))
+ `(multiple-value-prog1 ,result
+ (unless ,peekp ,step)))
+ (peekp
+ result)
+ (t
+ `(multiple-value-prog1 ,result
+ ,step))))