anchor.diff:  		    (t			; change
   		     (scsu-change-to-window state dwindow)
   		     (funcall write-func (+ +SC0+ dwindow))
  -		     (encode-unit* state code-point next-code-point write-func lookahead-func))))))
  +		     (encode-unit* state code-point next-code-point write-func))))))
   	 ;; 3byte or more
   	 ;; TODO: add test code for this part.
   	 ((use-define-window-p state code-point) ; define window
  
positive.code: (deftype write-func-type ()
    '(function ((unsigned-byte 8)) t))
  
  (deftype lookahead-func-type ()
    '(function (fixnum) t))
  
  (defun in-window-p (offset code-point)
    (declare (type unicode-code-point offset code-point))
    (<= offset code-point (+ offset #x7f)))
  
negative.code: 	  as w = (find-suitable-dynamic-window state (char-code (char string i)))
  	  when w do (incf (aref priority-array w)))
         (initialize-timestamp state priority-array nil 0 0)))
      ((eq initial-priority :random)
         (loop for w of-type fixnum from 0 below +window-count+
  	  do (setf (scsu-state-timestamp state w) (- (random 100)))))
      ((typep initial-priority 'array)
  