anchor.diff:           )
       (scan-rules (token-text stream)
   
  -      (labels ((get-tex-filename-without-braces (text)
  +      (labels ((terminate ()
  +                 (cerror "Return NIL." "Not implemented yet"))
  +               (get-tex-filename-without-braces (text)
                    "Return the tex file path designated by the token-text \"filename\".
                  Use variable READ-TEX-DIR."
                    (let ((dirname read-tex-dir)
  
positive.code:                      (add-sexp '(newline)))
                 (rule (seq backslash latex-special-char)
                       ;; print it after stripping off the backslash
                       (add-as-string (escape-quote (subseq token-text 1))))
                 (rule "&"
                       (if (or (plusp table-count) (plusp array-count))
                           (progn
  
negative.code: (defun set     (chars)          `(set     ,chars))
  (defun set-not (chars)          `(set-not ,chars))
  (defun alt     (&rest options)  `(alt     ,@options))
  (defun opt     (&rest options)  `(opt     ,@options))
  (defun rep+    (re)             `(rep+    ,re))
  (defun rep*    (re)             `(rep*    ,re))
  (defun seq     (&rest res)      `(seq     ,@res))
  (defun any     ()               `(any))
  
  (defun reject () (error "Failure reading the file."))
  
  (defmacro scan-rules ((token-variable stream-variable)
                        &body rules)
  