An actual running implementation, which makes code that compiles.

[sod] / src / parser / scanner-impl.lisp

diff --git a/src/parser/scanner-impl.lisp b/src/parser/scanner-impl.lisp
index aa8a98a3b01750b7321564de281255e249d48266..0849648c33d6b6a6ab264283098b125ccd6f33c5 100644 (file)
--- a/src/parser/scanner-impl.lisp
+++ b/src/parser/scanner-impl.lisp
@@ -31,6 +31,9 @@ (cl:in-package #:sod-parser)
 (defmethod file-location ((scanner character-scanner))
   (scanner-file-location scanner))
 
 (defmethod file-location ((scanner character-scanner))
   (scanner-file-location scanner))
 

+(defmethod file-location ((scanner token-scanner))
+  (scanner-file-location scanner))
+

 ;;;--------------------------------------------------------------------------
 ;;; Streams on character scanners.
 
 ;;;--------------------------------------------------------------------------
 ;;; Streams on character scanners.