anchor.diff:  				(_ (1byte-encodable-p state next-code-point dwindow)))
   	   (locally (declare (type window-index dwindow))
   	     (setf (scsu-state-mode state) :single-byte-mode)
  -	     (scsu-change-to-window state dwindow)
  +	     (setf (scsu-state-active-window-index state) dwindow)
   	     (funcall write-func (+ +UC0+ dwindow))
   	     (encode-unit* state code-point next-code-point write-func))))
   	((alexandria:when-let* ((offsets (use-define-window-p state code-point next-code-point)) ; define window
  
positive.code:     (declare (type (unsigned-byte 8) next-byte1 next-byte2))
      (logior (ash next-byte1 8) next-byte2)))
  
  (defun scsu-change-to-window (state window)
    (declare (type window-index window))
    (setf (scsu-state-active-window-index state) window))
  
  (defun scsu-define-window (state window offset)
    (declare (type window-index window)
  	   (type unicode-code-point offset))
    (scsu-change-to-window state window)  
    (setf (scsu-state-active-window-offset state) offset))
  
  (defun decode-define-window-extended (state read-func)
  
negative.code: 	     ((#.+SC0+ #.+SC1+ #.+SC2+ #.+SC3+ #.+SC4+ #.+SC5+ #.+SC6+ #.+SC7+) ; Change to Window
  	      (let ((window (find-SCn-window byte)))
  		(scsu-trace-output "SC~D " window)
  		(setf (scsu-state-active-window-index state) window))
  	      '+SC0+)
  	     ((#.+SD0+ #.+SD1+ #.+SD2+ #.+SD3+ #.+SD4+ #.+SD5+ #.+SD6+ #.+SD7+) ; Define Window
  	      (let ((window (find-SDn-window byte)))
  