- (,s ,@args)
- (flet ((,step () (setq ,nstate (funcall ,nstep ,s ,nstate ,nfrom-end)))
- (,endp () (funcall ,nendp ,s ,nstate ,nlimit ,nfrom-end))
- (,elt () (funcall ,nelt ,s ,nstate))
- (,setf (new-value) (funcall ,nsetf new-value ,s ,nstate))
- (,index () (funcall ,nindex ,s ,nstate))
- (,copy () (funcall ,ncopy ,s ,nstate)))
+ (,sequence,@args)
+ (flet ((,step () (setq ,nstate (funcall ,nstep ,sequence,nstate ,nfrom-end)))
+ (,endp () (funcall ,nendp ,sequence,nstate ,nlimit ,nfrom-end))
+ (,elt () (funcall ,nelt ,sequence,nstate))
+ (,setf (new-value) (funcall ,nsetf new-value ,sequence,nstate))
+ (,index () (funcall ,nindex ,sequence,nstate))
+ (,copy () (funcall ,ncopy ,sequence,nstate)))