anchor.diff:                                      :owner *gui-owner*
                                       :units (copy-seq *selected-entities*))
                         pos)))
  -                                    
  -    
  +
  +
   
   
   (defun selection-box (start end)
  
positive.code:                                         ;         (format nil "FPS: ~a" fps-counter))
                                          ;   (setf fps-counter 0)
                                          ;   (setf last-fps-time now)))
        
          (if (= (length *selected-entities*) 1)
              (setf (text *info-display*) (format nil "~a" (first *selected-entities*)))))
        (setf *fps-average*
  
negative.code:   (setf (cursor-pos *console*)
          (- (length (text *console*)) (length *after-cursor*) 1))
    (text *console*))
  
  
  (defun update-console ()
      (loop while (> (number-of-newlines (update-console-text)) *max-buffer*)
        do (setf *console-buffer* (butlast *console-buffer*))))
  
  (defun cursor-left ()
    (setf *after-cursor* (concatenate 'string (bounded-subseq *before-cursor* (- (length *before-cursor*) 1)) *after-cursor*)
          *before-cursor* (bounded-subseq *before-cursor* 0 (- (length *before-cursor*) 1)))
  