anchor.diff:  
   (defun symbolic-link-p (pathname)
     (eq :symbolic-link (osicat:file-kind (cl-fad:pathname-as-file pathname))))
  +
  +(defun goto-start-line ()
  +  (goto-line (buffer-get (window-buffer) :start-linum)))
   
   (defun date (universal-time)
     (multiple-value-bind (second minute hour date month year day daylight-p zone)
  
positive.code:      (buffer-get (window-buffer) :dirname)))))
  
  (defun change-flag (char)
    (with-buffer-read-only (window-buffer) nil
      (beginning-of-line)
      (insert-string (string char))
      (delete-char)
      (beginning-of-line)))
  
  (defun map-mark (test)
    (save-excursion
     (beginning-of-buffer)
     (do (flag-char)
         ((eobp))
       (let ((mark-char (following-char))
  
negative.code: (defun collect-files ()
    (let ((files))
      (save-excursion
       (goto-start-line)
       (do ((file nil nil))
           ((eobp))
         (when (and (eql +mark+ (following-char))
  