anchor.diff:  					    :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))
  +			  collect (process-option option 'readtable))
   		  ,@(loop for option in case-clauses
  -			  collect (process-option option 'read-table))
  +			  collect (process-option option 'readtable))
   		  ,@(loop for option in macro-clauses
  -			  collect (process-option option 'read-table))
  -		  read-table)))))))
  +			  collect (process-option option 'readtable))
  +		  readtable)))))))
   
   ;;; KLUDGE:
   ;;;   We need support for this in Slime itself, because we want IN-READTABLE
  
positive.code: ;;;
  ;;;                               (X3J13 Cleanup Issue IN-SYNTAX)
  ;;;
  
  
  ;;;;;; DEFREADTABLE &c.
  
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
  