anchor.diff:  	 (funcall write-func code-point))
   	((<= code-point #x7F)		; Basic Latin
   	 (funcall write-func code-point))
  -	((in-window-p (scsu-state-active-window-offset state) code-point) ; in current dynamic window
  +	((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))))
  
positive.code:   (with-buffer-accessor (:writer put-byte :current dst-current)
        (bytes start2 end2 :element-type (unsigned-byte 8))
      (loop for i of-type fixnum from start1 below end1
         as c of-type character = (char string i)
         do (with-scsu-error-handling
  	      (state :src i :dst dst-current
  		     :return (lambda (dst src)
  			       (return-from encode-from-string
  				 (values bytes dst src state))))
  	    (encode-unit* state (char-code c) #'put-byte)))
      (values bytes dst-current end1 state)))
  
  ;; The required length is out of BMP case.
  
negative.code:   (funcall write-func (ldb (byte 8 8) code-point))
    (funcall write-func (ldb (byte 8 0) code-point)))
  
  (defun encode-unit*/single-byte-mode (state code-point next-code-point write-func)
    (declare (type unicode-code-point code-point next-code-point)
  	   (type write-func-type write-func))
    (cond ((< code-point #x20)		
  	 (case code-point
  