;;;--------------------------------------------------------------------------
;;; List scanner.
-(export 'list-scanner)
+(export '(list-scanner list-scanner-p make-list-scanner))
(defstruct (list-scanner
(:constructor make-list-scanner (list &aux (%list list))))
"Simple token scanner for lists.