anchor.diff:                   ("#prompt-area"
                     :background-color "dimgray"
                     :display "grid"
  -                  :grid-template-columns "auto auto 1fr"
  +                  :grid-template-columns "auto auto 1fr auto"
                     :width "100%"
                     :color "white")
                    ("#prompt"
  
positive.code:                          (length suggestions)))
                  ((not marks)
                   (format nil "[~a]"
                           (length suggestions))))))))))
  
  (export 'prompt-render-suggestions)
  (defmethod prompt-render-suggestions ((prompt-buffer prompt-buffer))
  
negative.code:                  ("#prompt-extra"
                    :line-height "26px"
                    :padding-right "7px")
                   ("#prompt-modes"
                    :line-height "26px"
                    :padding-left "7px")
                   ("#input"
                    :border "none"
                    :outline "none"
  