anchor.diff:  ;;;
   ;;;                               (X3J13 Cleanup Issue IN-SYNTAX)
   ;;;
  +
  +
  +;;; TODO:
  +;;;
  +;;;    * Remove redefinition style-warning in DEFREADTABLE
  +;;;
  +;;;    * Add style-warning if redefined readtable contains entries
  +;;;      not specified in the DEFREADTABLE form (cf. SBCL's DEFPACKAGE)
  +;;;
  +;;;    * Add style-warning if :MERGE overwrites entries
  +;;;
  +;;;    * Add :FUZE that's like :MERGE without the style-warnings
  +;;;
  +;;;    * Revamp cruft.lisp, introduce DEFINTERFACE, DEFIMPLEMENTATION
  +;;;
  +;;;    * Think about MAKE-DISPATCHING-MACRO-CHARACTER in DEFREADTABLE
   
   
   ;;;;;; DEFREADTABLE &c.
  
positive.code: 					    :merge ',(rest (first merge-clauses)))))
  		  ;; We have to grovel all MERGE-CLAUSES for the redefinition case.
  		  ,@(loop for option in merge-clauses
  			  collect (process-option option 'read-table))
  		  ,@(loop for option in case-clauses
  			  collect (process-option option 'read-table))
  		  ,@(loop for option in macro-clauses
  			  collect (process-option option 'read-table))
  		  read-table)))))))
  
  ;;; KLUDGE:
  ;;;   We need support for this in Slime itself, because we want IN-READTABLE
  
negative.code: 	    (t
  	     `(eval-when (:compile-toplevel :load-toplevel :execute)
  		;; The (FIND-READTABLE ...) is important for proper redefinition semantics.
  		(let ((readtable (find-readtable ',name)))
  		  (if readtable
  		      (simple-style-warn "redefining ~A in DEFREADTABLE" ',name)
  		      (setq readtable
  			    (make-readtable ',name
  					    ;; We have to provide an explicit :MERGE argument,
  					    ;; because otherwise the :STANDARD readtable would
  