anchor.diff:          (let ((output-string (ls-output-string dirname)))
             (lem::insert-string-at cur-marker output-string)
             (lem::buffer-start cur-marker)
  -          (lem::line-offset cur-marker (1- *start-line-number*))
  +          (lem::line-offset cur-marker 3)
  +          (setf *start-marker* (copy-marker cur-marker :temporary))
             (loop
               (let ((string (lem::line-string-at cur-marker)))
                 (multiple-value-bind (start end start-groups end-groups)
  
positive.code:       (funcall open-file file))))
  
  (defun mark-current-line (flag)
    (when (and (<= *start-line-number* (current-linum))
               (not (last-line-p (current-marker))))
      (save-excursion
        (beginning-of-line)
  
negative.code: (defvar *directory-attribute* (make-attribute "blue" nil :bold-p t))
  (defvar *link-attribute* (make-attribute "green" nil))
  
  (defvar *start-marker*)
  
  (define-major-mode dired-mode ()
    (:name "dired"
  