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 aa8a98a..0849648 100644 (file)
--- a/src/parser/scanner-impl.lisp
+++ b/src/parser/scanner-impl.lisp
@@ -31,6 +31,9 @@
 (defmethod file-location ((scanner character-scanner))
   (scanner-file-location scanner))
 
+(defmethod file-location ((scanner token-scanner))
+  (scanner-file-location scanner))
+
 ;;;--------------------------------------------------------------------------
 ;;; Streams on character scanners.