anchor.diff:  			   (declare (type window-index i))
   			   (lookup-dynamic-window state i))))
   
  -(defun encode-unit*/single-byte-mode (state code-point write-func) ; TODO: add 'fixed?' parameter
  +(defun encode-unit*/single-byte-mode (state code-point write-func)
     (declare (type unicode-code-point code-point)
   	   (type write-func-type write-func))
     (cond ((< code-point #x20)		
  
positive.code: (in-package :scsu)
  
  ;;; State
  (defclass scsu-state ()
    ((mode :initform :single-byte-mode :accessor scsu-state-mode)
     (dynamic-window
      :initform +default-positions-for-dynamically-positioned-windows+
      :accessor scsu-state-dynamic-window)
     (active-window-index :initform 0 :accessor scsu-state-active-window-index)))
  
  (defun lookup-dynamic-window (state window)
    (declare (type window-index window))
  
negative.code: 	 (funcall write-func +SQU+)
  	 (funcall write-func #xFE)
  	 (funcall write-func #xFF))
  	;; 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))))
  