anchor.diff:            lisp-indent
             lisp-indent-line
             lisp-newline-and-indent
  +          lisp-read-change-package
             lisp-eval-string
             lisp-eval-region
             lisp-eval-defun
  
positive.code:                                (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
  
negative.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
               (find-package
                (string-upcase package-name)))
          (find-package "COMMON-LISP-USER"))))
  
  (defun lisp-change-package (package)
    (buffer-put (window-buffer)
                :file-property-list
                (acons "package" (package-name package)
                       (buffer-get (window-buffer)
                                   :file-property-list))))
  
  (define-key *lisp-mode-keymap* (kbd "C-x p") 'lisp-read-change-package)
  (define-command lisp-read-change-package () ()
    (let* ((package-name
            (string-upcase
             (minibuf-read-line "Package: " ""
                                'complete-package nil)))
           (package (find-package package-name)))
      (cond (package
             (lisp-change-package package) t)
            (t
             (minibuf-print
              (format nil "Package does not exist: ~a"
                      package-name))
             nil))))
  
  (defun %string-to-exps (str)
    (let ((str str)
          (exps)
  