anchor.diff:      (declare (type (unsigned-byte 8) byte))
       (case byte
         ((#.+UC0+ #.+UC1+ #.+UC2+ #.+UC3+ #.+UC4+ #.+UC5+ #.+UC6+ #.+UC7+) ; Change to Window
  -       (scsu-trace-output "UC~D " (find-UCn-window byte))
  -       (scsu-change-to-window state (find-UCn-window byte))
  -       (setf (scsu-state-mode state) :single-byte-mode)
  +       (let ((window (find-UCn-window byte)))
  +	 (scsu-trace-output "UC~D " window)
  +	 (scsu-change-to-window state window)
  +	 (setf (scsu-state-mode state) :single-byte-mode))
          (decode-unit* state read-func))
         ((#.+UD0+ #.+UD1+ #.+UD2+ #.+UD3+ #.+UD4+ #.+UD5+ #.+UD6+ #.+UD7+) ; Define Window
  -       (scsu-trace-output "UD~D " (find-UDn-window byte))
  -       (scsu-define-window state
  -			   (find-UDn-window byte)
  +       (let ((window (find-UDn-window byte)))
  +	 (scsu-trace-output "UD~D " window)
  +	 (scsu-define-window state window
   			   (lookup-window-offset-table (funcall read-func)))
  -       (setf (scsu-state-mode state) :single-byte-mode)
  +	 (setf (scsu-state-mode state) :single-byte-mode))
          (decode-unit* state read-func))
         (#.+UQU+				; Quote Unicode
          (scsu-trace-output "UQU ")
  
positive.code: 	    (let ((offset (lookup-dynamic-window state dwindow)))
  	      (declare (type unicode-code-point offset))
  	      (cond ((encoded-1byte-p state next-code-point) ; quote
  		     (scsu-state-update-timestamp state dwindow)
  		     (funcall write-func (+ +SQ0+ dwindow))
  		     (funcall write-func (+ (- code-point offset) #x80)))
  		    (t			; change
  
negative.code: (defmethod (setf scsu-state-timestamp) (val state window)
    (declare (type window-index window))
    (setf (aref (scsu-state-timestamp-vector state) window) val))
  
  (defmethod scsu-state-reset ((state scsu-state))
    (slot-makunbound state 'mode)
  