anchor.diff:    ()
     (:report
      (lambda (condition stream)
  -     (decalre (ignore condition))
  +     (declare (ignore condition))
        (format stream "A token consisting of a single dot was found ~
                        in a context that does not permit such a token"))))
   
  
positive.code: ;;;
  ;;; Readtable
  
  ;;; Return true if and only of the object is a readtable
  (defgeneric readtablep (object)
    (:method (object) nil))
  
negative.code:     (handler-case 
       (progn 
         (setf (cdr last-cons)
  	     (handler-case (list (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)
  