anchor.diff:                         result-value)
                         (t
                          (editor-error "timeout"))))))
  -  (defun slime-eval-string-internal (string &optional (package (current-package)))
  +  (defun slime-eval-from-string (string &optional (package (current-package)))
       (m swank-protocol:emacs-rex-string string))
  -  (defun slime-eval-internal (sexp &optional (package (current-package)))
  +  (defun slime-eval (sexp &optional (package (current-package)))
       (m swank-protocol:emacs-rex sexp)))
   
   (defun eval-async (form &optional cont thread package)
  
positive.code:                     (insert-character point #\newline 2)))))))
  
  (defun slime-apropos-internal (string only-external-p package case-sensitive-p)
    (show-apropos (slime-eval-internal
                   `(swank:apropos-list-for-emacs ,string
                                                  ,only-external-p
                                                  ,case-sensitive-p
  
negative.code:   (check-connection)
    (let* ((name (read-symbol-name "Edit Definition of: "
                                   (or (symbol-string-at-point (current-point)) "")))
           (definitions (slime-eval `(swank:find-definitions-for-emacs ,name)))
           (found-list '()))
      (dolist (def definitions)
        (optima:match def
  