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: 	until (or (null new-char) (eql new-char #\Newline))
  	finally (return (values))))
  
  (defun unmatched-right-parenthesis (reader-error)
    ()
    (:report
     (lambda (condition stream)
  
negative.code: 
  (defclass readtable ()
    ((%case :initform :upcase :accessor readtable-case)
     (%ascii-syntax-types :initform (make-array 128)
  			:reader ascii-syntax-types)
     (%ascii-constituent-traits
      :initform (make-array 128 :initial-element #*0000000000000)
      :reader ascii-constituent-traits)
     (%other-syntax-types :initform (make-hash-table) :reader others)
     (%macro-functions :initform (make-hash-table) :reader macro-functions)))
  
  (defun syntax-type (table char)
    (if (< (char-code char) 128)
        (aref (ascii-syntax-types table) (char-code char))
        (gethash char (others table) 'constituent)))
  
  (defun (setf syntax-type) (new-type table char)
    (if (< (char-code char) 128)
        (setf (aref (ascii-syntax-types table) (char-code char)) new-type)
        (setf (gethash char (others table)) new-type)))
  
  (defmethod readtablep ((object readtable))
    t)
  