anchor.diff:    (setf (lookup-dynamic-window state (scsu-state-active-window-index state))
   	offset))
   
  +(defmethod scsu-state-timestamp (state window)
  +  (declare (type window-index window))
  +  (aref (scsu-state-timestamp-vector state) window))
  +
  +(defmethod (setf scsu-state-timestamp) (val state window)
  +  (declare (type window-index window))
  +  (setf (aref (scsu-state-timestamp-vector state) window) val))
  +
   (defmethod scsu-state-reset ((state scsu-state))
     (slot-makunbound state 'mode)
     (slot-makunbound state 'dynamic-window)
     (slot-makunbound state 'active-window-index)
  +  (slot-makunbound state 'timestamp-vector)
  +  (slot-makunbound state 'current-timestamp)
     (shared-initialize state t))
   
   
  
positive.code: 
  (defun scsu-change-to-window (state window)
    (declare (type window-index window))
    (setf (scsu-state-active-window-index state) window))
  
  (defun scsu-define-window (state window offset)
  
negative.code:        (funcall lookahead-func code-point)))
  
  (defun find-LRU-dynamic-window (state)
    (loop with ret of-type fixnum = 0
       with min of-type fixnum = (scsu-state-timestamp state 0)
       for i of-type fixnum from 1 below +window-count+
       as ts of-type fixnum = (scsu-state-timestamp state i)
       when (<= ts min) ; If timestamps are same (at beginning), latter entries are used.
       do (setf ret i
  	      min ts)
       finally (return ret)))
  
  (defun encode-define-window (state code-point write-func define-window-tag define-extended-tag)
    (declare (type unicode-code-point code-point)
  