anchor.diff:        (points-to-string start end))))
   
   (defun macroexpand-internal (expander buffer-name)
  -  (let ((string (slime-eval-internal `(,expander ,(form-string-at-point)))))
  +  (let ((string (slime-eval `(,expander ,(form-string-at-point)))))
       (with-pop-up-typeout-window (out (get-buffer-create buffer-name) :focus t :erase t)
         (princ string out))))
   
  
positive.code:                        result-value)
                        (t
                         (editor-error "timeout"))))))
    (defun slime-eval-string-internal (string &optional (package (current-package)))
      (m swank-protocol:emacs-rex-string string))
    (defun slime-eval-internal (sexp &optional (package (current-package)))
      (m swank-protocol:emacs-rex sexp)))
  
  (defun eval-async (form &optional cont thread package)
  
negative.code:   (macroexpand-internal 'swank:swank-macroexpand-all "*slime-macroexpand-all*"))
  
  (defun symbol-completion (str &optional (package (current-package)))
    (let ((result (slime-eval-from-string
                   (format nil "(swank:fuzzy-completions ~S ~S)"
                           str
                           package)
  