anchor.diff:    ()
     (:report
      (lambda (condition stream)
  +     (declare (ignore condition))
        (format stream "A left parenthesis cannot be ~
                        immediately followed by a dot"))))
   
  
positive.code: 	   #:readtablep
  	   #:readtable-case
  	   #:copy-readtable
  	   ))
  
  (in-package #:sicl-read)
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  ;;; Character syntax-types
  
  (defclass syntax-type () ())
  
  (defclass whitespace (syntax-type) ())
  
  (defclass constituent (syntax-type)
    ((%traits :initarg :traits :reader traits)))
  
  (defclass macro-char (syntax-type)
    ((%dispatch-function :initarg dispatch-function :reader dispatch-function)))
  
  (defclass terminating-macro-char (macro-char) ())
  
  (defclass non-terminating-macro-char (macro-char) ())
  
  (defclass single-escape (syntax-type) ())
  
  (defclass multiple-escape (syntax-type) ())
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;;
  
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)
  