anchor.diff:            (files))
         (insert-string (namestring dirname))
         (insert-newline 2)
  -      (setf (get-bvar :start-linum) (current-linum))
  +      (setf (get-bvar :start-point) (current-point))
         (dolist (file (cl-fad:list-directory dirname :follow-symlinks nil))
           (push file files)
           (let ((filename (enough-namestring file dirname))
  
positive.code:   (dired-internal dirname))
  
  (defun get-file ()
    (let ((n (- (current-linum)
                (1- (get-bvar :start-linum))))
          (files (get-bvar :dired-files)))
      (when (<= 1 n (length files))
        (aref files (1- n)))))
  
  (defun select-file (open-file-fn)
    (let ((pathname (get-file)))
  
negative.code:   (eq :symbolic-link (osicat:file-kind (cl-fad:pathname-as-file pathname))))
  
  (defun goto-start-line ()
    (point-set (get-bvar :start-point)))
  
  (defun date (universal-time)
    (multiple-value-bind (second minute hour date month year day daylight-p zone)
  