anchor.diff:                 (list (markup:markup (:li "Default value: " (:code initform-string)))))))
          (when (getf props :documentation)
            ;; We use :pre for documentation so that code samples get formatted properly.
  -         ;; TODO: Parse docstrings and highlight code samples.
            (list (markup:markup (:li "Documentation: " (:pre (getf props :documentation))))))
          (unless (user-class-p class)
            (list (markup:markup
  
positive.code:     (mapcar (lambda (v) (make-variable-suggestion :name v))
              (package-variables)))
     (prompter:actions (list (make-unmapped-command describe-variable)))))
  
  (define-command describe-variable (&optional variable-suggestion)
    "Inspect a variable and show it in a help buffer."
  
negative.code: 
  (defstruct class-suggestion
    (name))
  
  (define-class function-source (prompter:source)
    ((prompter:name "Functions")
  