anchor.diff:  			  (t
   			   (when (= index buffer-size)
   			     (increase-buffer))
  -			   (setf (schar buffer index) (char-upcase char))
  +			   (setf (schar buffer index) (funcall case-function char))
   			   (incf index)
   			   (go symbol-even-escape-no-package-marker))))
   		   ((or (has-constituent-trait-p
  
positive.code: 	   ((constituent non-terminating-macro-char)
  	      (when (= index buffer-size)
  		(increase-buffer))
  	      (setf (schar buffer index) (char-upcase char))
  	      (incf index)
  	      (go symbol-even-escape-no-package-marker))
  	   (single-escape
  
negative.code:   (case (readtable-case *readtable*)
      (:upcase
         (read-upcase-downcase-preserve-decimal
  	input-stream eof-error-p eof-value recursive-p *ascii-upcase* #'char-upcase))
      (:downcase
         (read-upcase-downcase-preserve-decimal
  	input-stream eof-error-p eof-value recursive-p *ascii-downcase* #'char-downcase))
      (:preserve
         (read-upcase-downcase-preserve-decimal
  	input-stream eof-error-p eof-value recursive-p *ascii-preserve* #'identity))
      (:invert
         (error "can't handle :invert readcase yet"))))
    
  