anchor.diff:              (format nil "Package does not exist: ~a"
                       package-name))
              nil))))
  +
  +(define-key *lisp-mode-keymap* (kbd "C-x p") 'lisp-set-package)
  +(define-command lisp-set-package () ()
  +  (lisp-read-change-package #'find-package nil))
   
   (defun %string-to-exps (str)
     (let ((str str)
  
positive.code:   (lisp-eval-string (region-string begin end))
    t)
  
  (defun %eval-sexp (move-sexp)
    (let ((str (save-excursion
                (and (funcall move-sexp)
                     (mark-sexp)
                     (region-string (region-beginning) (region-end))))))
      (when str
        (lisp-eval-string str)
        t)))
  
  (define-key *lisp-mode-keymap* (kbd "M-C-x") 'lisp-eval-defun)
  (define-command lisp-eval-defun () ()
    (%eval-sexp #'top-of-defun))
  
  (define-key *lisp-mode-keymap* (kbd "C-x u") 'lisp-eval-last-sexp)
  (define-command lisp-eval-last-sexp () ()
    (%eval-sexp #'backward-sexp))
  
  (define-key *lisp-mode-keymap* (kbd "C-x l") 'lisp-load-file)
  (define-key *lisp-mode-keymap* (kbd "C-x C-l") 'lisp-load-file)
  
negative.code:                      (buffer-get (window-buffer)
                                   :file-property-list))))
  
  (defun lisp-read-change-package (find-package-function
                                   complete-package-function)
    (let* ((package-name
            (string-upcase
             (minibuf-read-line "Package: " ""
                                complete-package-function nil)))
           (package (funcall find-package-function package-name)))
      (cond (package
             (lisp-change-package package) t)
            (t
  