anchor.diff:     (active-window-index :initform 0 :accessor scsu-state-active-window-index)
      (timestamp-vector :initform (make-array +window-count+ :element-type 'fixnum
   					   :initial-element -1)
  -		     :accessor scsu-state-timestamp-vector) ; TODO: remove if decode
  +		     :accessor scsu-state-timestamp-vector) ; TODO: remove if decode -- allocate at initialize-timestamp
      (current-timestamp :initform 0 :accessor scsu-state-current-timestamp :type fixnum)
      (fix-dynamic-window :initarg :fixed-window :initform *scsu-state-default-fix-dynamic-window*
   		       :reader scsu-state-fix-dynamic-window :type boolean)
  
positive.code: 	       (t
  		t)))))
  
  (defun find-LRU-dynamic-window (state)
    (loop with ret of-type fixnum = 0
       with min of-type fixnum = (scsu-state-timestamp state 0)
  
negative.code: 	      (setf (scsu-state-mode state) :unicode-mode)
  	      (decode-unit* state read-func))
  	     ((#.+SC0+ #.+SC1+ #.+SC2+ #.+SC3+ #.+SC4+ #.+SC5+ #.+SC6+ #.+SC7+) ; Change to Window
  	      (let ((window (find-SCn-window byte)))
  		(scsu-trace-output "SC~D " window)
  		(scsu-change-to-window state window))
  	      (decode-unit* state read-func))
  	     ((#.+SD0+ #.+SD1+ #.+SD2+ #.+SD3+ #.+SD4+ #.+SD5+ #.+SD6+ #.+SD7+) ; Define Window
  	      (let ((window (find-SDn-window byte)))
  		(scsu-trace-output "SD~D " window)
  		(scsu-define-window state window
  				    (lookup-window-offset-table (funcall read-func))))
  	      (decode-unit* state read-func))))
  	  ((<= byte #x7F)		  ; Basic Latin Block.
  	   (scsu-trace-output "[single-byte ASCII ~X]" byte)
  