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:   ((url ""))
    (:accessor-name-transformer #'class*:name-identity))
  
  (define-class input-hint (focusable-hint) ())
  
  (define-class textarea-hint (focusable-hint) ())
  
  (define-class image-hint (link-hint)
    ((alt "" :documentation "Alternative text for the image."))
  
negative.code:           ((equal "BUTTON" (ps:@ element tag-name))
             (ps:create "type" "button" "hint" hint "identifier" hint "body" (ps:@ element |innerHTML|)))
            ((equal "INPUT" (ps:@ element tag-name))
             (ps:create "type" "input" "hint" hint "identifier" hint "placeholder" (ps:@ element placeholder)))
            ((equal "TEXTAREA" (ps:@ element tag-name))
             (ps:create "type" "textarea" "hint" hint "identifier" hint "placeholder" (ps:@ element placeholder)))
            ((equal "IMG" (ps:@ element tag-name))
             (ps:create "type" "img" "hint" hint "identifier" hint "src" (ps:@ element src) "alt" (ps:@ element alt)))
            ((ps:@ element onclick)
  