Daily work in progress.

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

diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp
index 2d7a4ae4ed8caf3aee99e8527a643a269e179bbc..9cafc3d4bd9c3e5c2ffe974ab56d7edb80ce951e 100644 (file)
--- a/src/parser/scanner-charbuf-impl.lisp
+++ b/src/parser/scanner-charbuf-impl.lisp
@@ -190,10 +190,10 @@ (defgeneric charbuf-scanner-map (scanner func &optional fail)
    and wishes to read more.  If DONEP is true then the condition (<= START
    USED END) must hold; the FUNC has consumed the buffer as far as USED
    (exclusive) and has completed successfully; the values DONEP and `t' are
-   returned as the result of CHARBUF-SCANNER-MAP.
+   returned as the result of `charbuf-scanner-map'.
 
    If end-of-file is encountered before FUNC completes successfully then FAIL
-   is called with no arguments, and CHARBUF-SCANNER-MAP returns whatever
+   is called with no arguments, and `charbuf-scanner-map' returns whatever
    FAIL returns.
 
    Observe that, if FAIL returns a second value of nil, then
@@ -369,7 +369,7 @@ (defmethod scanner-interval
                                                    :index index))))
         (last-link (charbuf-scanner-place-link place-b)))
     (flet ((bad ()
-            (error "Incorrect places ~S and ~S to SCANNER-INTERVAL."
+            (error "Incorrect places ~S and ~S to `scanner-interval'."
                    place-a place-b)))
       (do ((link (charbuf-scanner-place-link place-a)
                 (charbuf-chain-link-next link))