anchor.diff:              ((and (find-class symbol nil)
                     (mopu:subclassp (find-class symbol) (find-class 'standard-object)))
                (first (sera:lines (documentation symbol 'type))))
  +            ((find-package symbol)
  +             (first (sera:lines (documentation (find-package symbol) t))))
               (t
                (first (sera:lines (documentation symbol 'variable)))))
             ""))))
   
  +(defmethod prompter:object-attributes ((package package))
  +  `(("Name" ,(package-name package))
  +    ("Nicknames" ,(princ-to-string (uiop:package-local-nicknames package)))
  +    ("Documentation" ,(or (first (sera:lines (documentation package t))) ""))))
  +
   (define-class class-source (prompter:source)
     ((prompter:name "Classes")
      (prompter:constructor (package-classes))))
  
positive.code:         (spinneret:with-html-string
            (:code (:raw (ppcre:regex-replace-all "`[^'\\s]+'" string #'resolve-regex))))
          "")))
  
  (define-internal-page-command-global describe-variable
      (&key (variable
  
negative.code: (define-class variable-source (prompter:source)
    ((prompter:name "Variables")
     (prompter:constructor (package-variables))))
  
  (define-class package-source (prompter:source)
    ((prompter:name "Packages")
     (prompter:constructor (mapcar (alex:compose #'intern #'package-name) (list-all-packages)))))
  
  (define-command describe-any ()
    "Inspect anything and show it in a help buffer."
  