anchor.diff:                                 (char-before 1)
                                  -2))
   
  -(defun lisp-current-package ()
  -  (let ((package-name
  -         (cdr (assoc "package"
  -                     (buffer-get (window-buffer)
  -                                 :file-property-list)
  -                     :test #'equal))))
  -    (or (and package-name
  -             (find-package
  -              (string-upcase package-name)))
  -        (find-package "COMMON-LISP-USER"))))
  -
   (defun lisp-looking-at-word ()
     (save-excursion
      (skip-chars-forward
  
positive.code:   (mark-sexp)
    (lisp-indent-region))
  
  (defun %string-to-exps (str)
    (let ((str str)
          (exps)
  
negative.code:           lisp-indent
            lisp-indent-line
            lisp-newline-and-indent
            lisp-read-change-package
            lisp-eval-string
            lisp-eval-region
            lisp-eval-defun
  