anchor.diff:      (self-connect)))
   
   (defun buffer-package (buffer &optional default)
  -  (or (lem.lisp-mode::lisp-buffer-package buffer)
  -      default))
  +  (let ((package-name (buffer-value buffer "package")))
  +    (if package-name
  +        (string-upcase package-name)
  +        default)))
   
   (defun current-package ()
     (or (buffer-package (current-buffer))
  
positive.code: (defun repl-get-prompt ()
    (format nil "~A> " *slime-prompt-string*))
  
  (defun repl-reset-input ()
    (let ((buffer (repl-buffer)))
      (when buffer
        (setf (variable-value 'lem.listener-mode:listener-get-prompt-function :buffer buffer)
              'repl-get-prompt
              (variable-value 'lem.listener-mode:listener-check-confirm-function :buffer buffer)
              'lem.lisp-mode:lisp-repl-paren-correspond-p
              (variable-value 'lem.listener-mode:listener-confirm-function :buffer buffer)
              'repl-confirm))))
  
  
negative.code:                      (character-offset point 1)))))))))
  
  (define-command slime-indent-sexp () ()
    (with-point ((end (current-point) :right-inserting))
      (when (form-offset end 1)
        (indent-region (current-point) end))))
  
  (define-command slime-set-package (package-name) ((list (read-package-name)))
    (check-connection)
  