(:documentation
"Capture the SCANNER's current place and return it.")
(:method (scanner)
- (error "Scanner ~S doesn't support rewinding." scanner)))
+ (error "Scanner ~S doesn't support rewinding" scanner)))
(export 'scanner-restore-place)
(defgeneric scanner-restore-place (scanner place)
(:documentation "Return the SCANNER's current column number.")
(:method (scanner) nil))
+(export 'scanner-file-location)
(defun scanner-file-location (scanner)
"Capture the current location of the SCANNER.