anchor.diff:  
   (defun read-symbol-name (prompt &optional (initial ""))
     (let ((package (current-package)))
  -    (minibuf-read-line prompt
  -                       initial
  -                       (lambda (str)
  -                         (symbol-completion str package))
  -                       nil
  -                       'mh-read-symbol)))
  +    (prompt-for-line prompt
  +                     initial
  +                     (lambda (str)
  +                       (symbol-completion str package))
  +                     nil
  +                     'mh-read-symbol)))
   
   (defvar *edit-definition-stack* nil)
   
   (define-command slime-edit-definition () ()
     (check-connection)
     (let* ((name (read-symbol-name "Edit Definition of: "
  -                                 (or (symbol-string-at-point (current-marker)) "")))
  +                                 (or (symbol-string-at-point (current-point)) "")))
            (definitions (slime-eval-internal `(swank:find-definitions-for-emacs ,name)))
            (found-list '()))
       (dolist (def definitions)
  
positive.code:   (check-connection)
    (let ((symbol-name
           (read-symbol-name "Describe symbol: "
                             (or (symbol-string-at-point (current-marker)) ""))))
      (when (string= "" symbol-name)
        (editor-error "No symbol given"))
      (lem-slime.clhs:main symbol-name)))
  
negative.code:     (eval-with-transcript `(swank:load-file ,filename))))
  
  (defun get-operator-name ()
    (with-point ((point (current-point)))
      (lem.lisp-mode::top-of-defun point)
      (character-offset point 1)
      (symbol-string-at-point point)))
  
  (define-command slime-echo-arglist () ()
    (check-connection)
  