anchor.diff:    ()
     (:report
      (lambda (condition stream)
  +     (declare (ignore condition))
        (format stream "A left parenthesis cannot be ~
                        immediately followed by a dot"))))
   
  
positive.code:     (handler-case 
       (progn 
         (setf (cdr last-cons)
  	     (handler-case (read stream t nil t)
  	       (single-dot-token () (error 'no-object-preceding-dot))))
         (setf last-cons (cdr last-cons))
         (loop for expr = (handler-case (read stream t nil t)
  
negative.code:      (format stream "Unmatched right parenthesis found"))))
  
  (defun right-parenthesis-function (stream char)
    (declare (ignore stream char))
    (error 'unmatched-right-parenthesis))
  
  ;;; This condition is signaled when a token consisting
  