anchor.diff:                        (list
                          " "
                          (lambda (window)
  -                         (declare (ignore window))
  -                         (package-name (lisp-current-package)))))))
  +                         (package-name (lisp-current-package
  +                                        (window-buffer window))))))))
   
   (defun %lisp-mode-skip-expr-prefix (c1 c2 step-arg)
     (when c1
  
positive.code:   (mark-sexp)
    (lisp-indent-region))
  
  (defun lisp-current-package ()
    (let ((package-name
           (cdr (assoc "package"
                       (buffer-get (window-buffer)
                                   :file-property-list)
                       :test #'equal))))
      (or (and package-name
  
negative.code:           lisp-disassemble-symbol
            lisp-indent-region
            lisp-indent-sexp
            lisp-current-package
            lisp-complete-symbol
            lisp-comment-or-uncomment-region
            lisp-comment-region
  