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:     (dired-internal dirname)))
  
  (defun get-file ()
    (let ((n (window-cur-linum))
          (files (buffer-get (window-buffer) :dired-files)))
      (when (<= 1 n (length files))
        (aref files (1- n)))))
  
negative.code: (defun collect-files ()
    (let ((files))
      (save-excursion
       (goto-start-line)
       (do ((file nil nil))
           ((eobp))
         (when (and (eql +mark+ (following-char))
  