anchor.diff:  	    (t
   	     `(eval-when (:compile-toplevel :load-toplevel :execute)
   		;; The (FIND-READTABLE ...) is important for proper redefinition semantics.
  -		(let ((read-table (find-readtable ',name)))
  -		  (if read-table
  +		(let ((readtable (find-readtable ',name)))
  +		  (if readtable
   		      (simple-style-warn "redefining ~A in DEFREADTABLE" ',name)
  -		      (setq read-table
  +		      (setq readtable
   			    (make-readtable ',name
   					    ;; We have to provide an explicit :MERGE argument,
   					    ;; because otherwise the :STANDARD readtable would
  
positive.code: ;;;
  ;;;                               (X3J13 Cleanup Issue IN-SYNTAX)
  ;;;
  
  
  ;;;;;; DEFREADTABLE &c.
  
negative.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 'readtable))
  		  ,@(loop for option in case-clauses
  			  collect (process-option option 'readtable))
  		  ,@(loop for option in macro-clauses
  			  collect (process-option option 'readtable))
  		  readtable)))))))
  
  ;;; KLUDGE:
  ;;;   We need support for this in Slime itself, because we want IN-READTABLE
  