anchor.diff:                                    (string-downcase (string sym)))
                             (string-downcase (string sym)))
                         symbols)))
  -      (let ((pkg (or package :cl-user)))
  +      (let ((pkg (or package (lisp-current-package))))
           (if external-p
               (do-external-symbols (sym pkg) (f sym ":"))
               (do-symbols (sym pkg) (f sym "::")))))
  
positive.code:               (unwind-protect
                  (progn
                    (setq *lisp-eval-thread-values*
                          (multiple-value-list (eval (%string-to-exps str))))
                    (when update-point-p
                      (point-set
                       (buffer-output-stream-point io))))
  
negative.code:                                    (point-set start))))
                  nil)))
            (setq expr
                  (lisp-eval-in-package `(,macroexpand-symbol ',expr)
                                        (lisp-current-package)))
            (when (eq (window-buffer)
                      (get-buffer buffer-name))
              (let ((*kill-disable-p* t))
  