anchor.diff:  (in-package :nyxt)
   
   (define-class autofill ()
  -  ((name
  +  ((key
  +    ""
  +    :accessor autofill-key
  +    :documentation "Unique and short key to identify the autofill by. This will
  +    be removed in 3.0.0.")
  +   (name
       ""
       :type string
  -    :accessor name
  +    :accessor autofill-name
       :documentation "Displayable name of the autofill.
   Is especially useful for function autofills as `autofill-fill' doesn't tell
   anything meaningful for these.")
  
positive.code:   (apply #'make-instance 'autofill args))
  
  (defmethod prompter:object-attributes ((autofill autofill))
    `(("Name" ,(name autofill))
      ("Fill" ,(let ((f (autofill-fill autofill)))
                 (typecase f
                   (string (write-to-string f))
  
negative.code: it will be in conflict with common-lisp:fill."))
    (:export-class-name-p t)
    (:export-accessor-names-p t)
    (:export-predicate-name-p t)
    (:accessor-name-transformer (hu.dwim.defclass-star:make-name-transformer name)))
  
  (export-always 'make-autofill)
  