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:       (describe symbol out))
      (let* ((start-string "Lambda-list: (")
             (start (search start-string fstr))
             (end (when start (ppcre:scan "\\s\\s[A-Z][ a-z]*:" fstr :start start))))
        (when (and start end)
          (ppcre:regex-replace-all
           "\\)\\s*\\)"
  
negative.code: 
  (define-key *lisp-mode-keymap* (kbd "C-x m") 'lisp-macroexpand)
  (define-command lisp-macroexpand () ()
    (%lisp-macroexpand 'macroexpand-1 "*macroexpand*"))
  
  (define-key *lisp-mode-keymap* (kbd "C-x M") 'lisp-macroexpand-all)
  (define-command lisp-macroexpand-all () ()
    (%lisp-macroexpand 'macroexpand "*macroexpand*"))
  
  (defun lisp-read-symbol (prompt)
    (let ((name (minibuf-read-line prompt ""
                                   'complete-symbol
                                   nil)))
      (with-safe-form
        (let ((*package* (lisp-current-package)))
          (read-from-string name)))))
  
  (define-key *lisp-mode-keymap* (kbd "C-x d") 'lisp-describe-symbol)
  (define-command lisp-describe-symbol () ()
  