anchor.diff:  ;;;; SPDX-License-Identifier: BSD-3-Clause
   
   (in-package :nyxt)
  -
  -(defstruct variable-suggestion
  -  (name))
  -
  -(defstruct function-suggestion
  -  (name))
  -
  -(defstruct class-suggestion
  -  (name))
   
   (define-class function-source (prompter:source)
     ((prompter:name "Functions")
      (prompter:must-match-p t)
  -   (prompter:constructor
  -    (mapcar (lambda (v) (make-function-suggestion :name v))
  -            (package-functions)))
  +   (prompter:constructor (package-functions))
      (prompter:actions (list (make-unmapped-command describe-function)))))
   
   (define-class class-source (prompter:source)
     ((prompter:name "Classes")
      (prompter:must-match-p t)
  -   (prompter:constructor
  -    (mapcar (lambda (v) (make-class-suggestion :name v))
  -            (package-classes)))
  +   (prompter:constructor (package-classes))
      (prompter:actions (list (make-unmapped-command describe-class)))))
   
   (define-class slot-source (prompter:source)
  
positive.code: (define-command describe-variable (&optional variable-suggestion)
    "Inspect a variable and show it in a help buffer."
    (if variable-suggestion
        (let* ((input (variable-suggestion-name variable-suggestion)))
          (with-current-html-buffer (buffer
                                     (str:concat "*Help-" (symbol-name input) "*")
                                     'nyxt/help-mode:help-mode)
  
negative.code:   "Inspect a function and show it in a help buffer.
  For generic functions, describe all the methods."
    (if function-suggestion
        (let ((input function-suggestion))
          (flet ((method-desc (method)
                   (markup:markup
                    (:h1 (symbol-name input) " " (write-to-string (mopu:method-specializers method)))
  