anchor.diff:  
   (defun scsu-change-to-window (state window)
     (declare (type window-index window))
  +  ;; update LRU entry
  +  (let ((timestamp (incf (scsu-state-current-timestamp state))))
  +    (setf (scsu-state-timestamp state window) timestamp))
     (setf (scsu-state-active-window-index state) window))
   
   (defun scsu-define-window (state window offset)
  
positive.code:     :initform +default-positions-for-dynamically-positioned-windows+
      :accessor scsu-state-dynamic-window)
     (active-window-index :initform 0 :accessor scsu-state-active-window-index)
     (fix-dynamic-window :initarg :fixed-window :initform *scsu-state-default-fix-dynamic-window*
  		       :accessor scsu-state-fix-dynamic-window
  		       :type boolean)))
  
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)
  