anchor.diff:    (check-connection)
     (let* ((name (read-symbol-name "Edit Definition of: "
                                    (or (symbol-string-at-point (current-point)) "")))
  -         (definitions (slime-eval-internal `(swank:find-definitions-for-emacs ,name)))
  +         (definitions (slime-eval `(swank:find-definitions-for-emacs ,name)))
            (found-list '()))
       (dolist (def definitions)
         (optima:match def
  
positive.code:   (cond ((string= package-name ""))
          ((eq (current-buffer) (repl-buffer))
           (destructuring-bind (name prompt-string)
               (slime-eval-internal `(swank:set-package ,package-name))
             (new-package name prompt-string)
             (lem.listener-mode:listener-reset-prompt (repl-buffer))))
          (t
  
negative.code:                     (insert-character point #\newline 2)))))))
  
  (defun slime-apropos-internal (string only-external-p package case-sensitive-p)
    (show-apropos (slime-eval
                   `(swank:apropos-list-for-emacs ,string
                                                  ,only-external-p
                                                  ,case-sensitive-p
  