anchor.diff:    (format nil "~a  Focusable" (hint focusable-hint)))
   
   (defmethod object-display ((input-hint input-hint))
  -  (format nil "~a  Input" (hint input-hint)))
  +  (format nil "~a  ~:[~a  ~;~]Input"
  +          (hint input-hint)
  +          (str:emptyp (placeholder-text input-hint))
  +          (placeholder-text input-hint)))
   
   (defmethod object-display ((textarea-hint textarea-hint))
  -  (format nil "~a  Textarea" (hint textarea-hint)))
  +  (format nil "~a  ~:[~a  ~;~]Textarea"
  +          (hint textarea-hint)
  +          (str:emptyp (placeholder-text textarea-hint))
  +          (placeholder-text textarea-hint)))
   
   (defmethod object-display ((image-hint image-hint))
     (format nil "~a  ~a  ~a"
  
positive.code:                   ("input"
                     (make-instance 'input-hint
                                    :identifier (alex:assoc-value element :identifier)
                                    :hint (alex:assoc-value element :hint)))
                    ("textarea"
                     (make-instance 'textarea-hint
                                    :identifier (alex:assoc-value element :identifier)
                                    :hint (alex:assoc-value element :hint)))
                    ("img"
                     (make-instance 'image-hint
                                    :identifier (alex:assoc-value element :identifier)
  
negative.code:   ((url ""))
    (:accessor-name-transformer #'class*:name-identity))
  
  (define-class input-hint (focusable-hint)
    ((placeholder-text "" :documentation "The placeholder text of the input element.
  I.e. the grey text initially seen in it."))
    (:accessor-name-transformer #'class*:name-identity))
  
  (define-class textarea-hint (focusable-hint)
    ((placeholder-text "" :documentation "The placeholder text of the textarea.
  I.e. the grey text initially seen in it."))
    (:accessor-name-transformer #'class*:name-identity))
  
  (define-class image-hint (link-hint)
    ((alt "" :documentation "Alternative text for the image."))
  