anchor.diff:  	       (funcall write-func hbyte)
   	       (funcall write-func lbyte)))))))
   
  -(defun encode-SMP-as-surrogate-pair (state code-point next-code-point write-func)
  -  (declare (type unicode-code-point code-point next-code-point))
  -  (multiple-value-bind (high low)
  -      (encode-to-surrogate-pair code-point)
  -    (declare (type (unsigned-byte 16) high low))
  -    (encode-unit* state high low write-func)
  -    (encode-unit* state low next-code-point write-func)))
  -
   (defun encoded-1byte-p (state code-point &optional (window (scsu-state-active-window-index state)))
     (declare (type (or null unicode-code-point) code-point)
   	   (type window-index window))
  
positive.code:       (<= code-point #x7F)
        (in-window-p (lookup-dynamic-window state window) code-point)))
  
  (defun encode-unit*/single-byte-mode (state code-point next-code-point write-func)
    (declare (type unicode-code-point code-point)
  	   (type (or null unicode-code-point) next-code-point)
  
negative.code: 			       write-func +UD0+ +UDX+)
  	 (encode-unit* state code-point next-code-point write-func))
  	((> code-point #xFFFF)		; use surrogate pair
  	 (multiple-value-bind (high low)
  	     (encode-to-surrogate-pair code-point)
  	   (write-16bit-code-point high write-func)
  	   (write-16bit-code-point low write-func)))
  	(t
  	 (when (<= #xE000 code-point #xF2FF)
  	   (funcall write-func +UQU+))
  	 (write-16bit-code-point code-point write-func))))
  
  (defun encode-unit* (state code-point next-code-point write-func)
    (declare (type unicode-code-point code-point next-code-point)
  