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-put (window-buffer)
                    :dired-files
                    (apply #'vector (reverse files))))
      (beginning-of-buffer)))
  
  (defun dired-find-directory (dirname)
    (let ((buffer
  
negative.code: (defun collect-files ()
    (let ((files))
      (save-excursion
       (goto-start-line)
       (do ((file nil nil))
           ((eobp))
         (when (and (eql +mark+ (following-char))
  