anchor.diff:    (declare (type unicode-code-point offset code-point))
     (<= offset code-point (+ offset #x7f)))
   
  +(defun in-active-window-p (state code-point)
  +  (in-window-p (scsu-state-active-window-offset state) code-point))
  +
   (defun find-suitable-window* (code-point offset-func)
     (declare (type unicode-code-point code-point)
   	   (type (function (fixnum)) offset-func))
  
positive.code: 		 ;; TODO: consider change or quote -- lookahead?
  		 (funcall write-func (+ +SC0+ dwindow))
  		 (funcall write-func (+ (- code-point offset) #x80)))))))
  	((standalone-character-p code-point) ; TODO: or, not consective
  	 (encode-quote-unicode code-point write-func))
  	;; TODO:
  	;; Define a new window, or goto unicode mode
  	;; not-compressible => Unicode mode
  	((or (incompressible-code-point-p code-point)
  	     (scsu-state-fixed-window-p state)
  	     t)				; TODO: change to a good function..
  	 (funcall write-func +SCU+)
  	 (setf (scsu-state-mode state) :unicode-mode)
  	 (encode-unit* state code-point write-func))))
  
  (defun encode-unit*/unicode-mode (state code-point write-func)
    (declare (type unicode-code-point code-point)
  	   (type write-func-type write-func))
    (cond ((<= code-point #x7F)		; Basic Latin
  	 (setf (scsu-state-mode state) :single-byte-mode)
  	 (funcall write-func (+ +UC0+ (scsu-state-active-window-index state)))
  	 (encode-unit* state code-point write-func))
  	((let ((dwindow (find-suitable-dynamic-window state code-point))) ; in dynamic window
  	   (when dwindow
  	     (locally (declare (type window-index dwindow))
  	       (setf (scsu-state-mode state) :single-byte-mode)
  	       (setf (scsu-state-active-window-index state) dwindow)
  	       (funcall write-func (+ +UC0+ dwindow))
  	       (encode-unit* state code-point write-func)))))
  	(t
  	 (when (<= #xE000 code-point #xF2FF)
  	   (funcall write-func +UQU+))
  	 (funcall write-func (ldb (byte 8 8) code-point))
  	 (funcall write-func (ldb (byte 8 0) code-point)))))
  
  (defun encode-unit* (state code-point write-func)
    (declare (type unicode-code-point code-point)
  	   (type write-func-type write-func))
    (cond ((> code-point #xFFFF)
  	 (multiple-value-bind (high low)
  	     (encode-to-surrogate-pair code-point)
  	   (declare (type (unsigned-byte 16) high low))
  	   (encode-unit* state high write-func)
  	   (encode-unit* state low write-func)))
  	(t
  	 (ecase (scsu-state-mode state)
  	   (:single-byte-mode (encode-unit*/single-byte-mode state code-point write-func))
  	   (:unicode-mode (encode-unit*/unicode-mode state code-point write-func))))))
  
  (defun encode-from-string (string
  			   &key (start1 0) (end1 (length string))
  
negative.code: 	 (funcall write-func code-point))
  	((<= code-point #x7F)		; Basic Latin
  	 (funcall write-func code-point))
  	((in-active-window-p state code-point) ; in current dynamic window
  	 (let ((offset (scsu-state-active-window-offset state)))
  	   (declare (type unicode-code-point offset))
  	   (funcall write-func (+ (- code-point offset) #x80))))
  