anchor.diff:    (check-connection)
     (let ((symbol-name
            (read-symbol-name "Describe symbol: "
  -                           (or (symbol-string-at-point (current-marker)) ""))))
  +                           (or (symbol-string-at-point (current-point)) ""))))
       (when (string= "" symbol-name)
         (editor-error "No symbol given"))
       (lem-slime.clhs:main symbol-name)))
  
positive.code:   (let ((package-names (mapcar #'string-downcase
                                 (slime-eval-internal
                                  '(swank:list-all-package-names t)))))
      (string-upcase (minibuf-read-line
                      "Package: " ""
                      (lambda (str)
                        (completion str package-names))
  
negative.code:               (if windows
                    (first windows)
                    (pop-to-buffer buffer))))
        (buffer-end (current-point))
        (lem.listener-mode:listener-update-point)
        (repl-change-read-line-input))))
  
  (defun repl-abort-read (thread tag)
  