anchor.diff:  
   (defun scsu-change-to-window (state window)
     (declare (type window-index window))
  -  (scsu-state-update-timestamp state window)
     (setf (scsu-state-active-window-index state) window))
   
   (defun scsu-define-window (state window offset)
  
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: (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)
  