anchor.diff:    (:report
      (lambda (condition stream)
        (declare (ignore condition))
  -     (format stream "A token consisting of a single dot was found ~
  -                     in a context that does not permit such a token"))))
  +     (format stream "A token consisting of a single dot was found ~@
  +                     in a context that does not permit such a token."))))
   
   (define-condition no-object-preceding-dot (reader-error)
     ()
  
positive.code: 	    (error 'invalid-character
  		   :stream input-stream :char char)))
       10
       ;; build the token here
       )
      token))
  
negative.code:   (:report
     (lambda (condition stream)
       (declare (ignore condition))
       (format stream "Unmatched right parenthesis found."))))
  
  (defun right-parenthesis-function (stream char)
    (declare (ignore stream char))
  