anchor.diff:        ((#.+UC0+ #.+UC1+ #.+UC2+ #.+UC3+ #.+UC4+ #.+UC5+ #.+UC6+ #.+UC7+) ; Change to Window
          (let ((window (find-UCn-window byte)))
   	 (scsu-trace-output "UC~D " window)
  -	 (scsu-change-to-window state window)
  +	 (setf (scsu-state-active-window-index state) window)
   	 (setf (scsu-state-mode state) :single-byte-mode))
          '+UC0+)
         ((#.+UD0+ #.+UD1+ #.+UD2+ #.+UD3+ #.+UD4+ #.+UD5+ #.+UD6+ #.+UD7+) ; Define Window
  
positive.code: 		     (funcall write-func (+ +SQ0+ dwindow))
  		     (funcall write-func (+ (- code-point offset) #x80)))
  		    (t			; change
  		     (scsu-change-to-window state dwindow)
  		     (funcall write-func (+ +SC0+ dwindow))
  		     (encode-unit* state code-point next-code-point write-func))))))
  	 ;; 3byte or more
  
negative.code:       ;; changes active window and mode if required
        (cond ((eq (scsu-state-mode state) :unicode-mode)
  	     (setf (scsu-state-mode state) :single-byte-mode)	     
  	     (setf (scsu-state-active-window-index state) 0)
  	     (put-byte +UC0+))
  	    ((/= 0 (scsu-state-active-window-index state))
  	     (setf (scsu-state-active-window-index state) 0)
  	     (put-byte +SC0+)))
        ;; clean object
        (scsu-state-reset state))
  