anchor.diff:    (:report
      (lambda (condition stream)
        (declare (ignore condition))
  -     (format stream "Unmatched right parenthesis found"))))
  +     (format stream "Unmatched right parenthesis found."))))
   
   (defun right-parenthesis-function (stream char)
     (declare (ignore stream char))
  
positive.code:   (: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"))))
  
  (define-condition no-object-preceding-dot (reader-error)
    ()
  
negative.code: 	    (error 'invalid-character
  		   :stream input-stream :char char)))
       10
       (if (equal token ".")
  	 (error 'single-dot-token)
  	 ;; build the token here
  	 nil
  	 ))
      token))
  