anchor.diff:                       :documentation "The CSS applied to a minibuffer when it is set-up.")))
   
   (defmethod read-from-minibuffer ((minibuffer minibuffer)
  -                                 &key callback input-prompt completion-function setup-function
  +                                 &key callback input-prompt completion-function invisible-input-p setup-function
                                      cleanup-function empty-complete-immediate)
     (if input-prompt
         (setf (input-prompt minibuffer) input-prompt)
  
positive.code:    (input-prompt :accessor input-prompt :initform "Input:")
     (input-buffer :accessor input-buffer :initform "")
     (input-buffer-cursor :accessor input-buffer-cursor :initform 0)
     (completions :accessor completions)
     (completion-cursor :accessor completion-cursor :initform 0)
     (minibuffer-style :accessor minibuffer-style
  
negative.code:                              (:span :id "cursor" (subseq input-buffer cursor-index (+ 1 cursor-index)))
                               (:span (subseq input-buffer (+ 1  cursor-index)))))))
  
  (defun generate-input-html-invisible (input-buffer cursor-index)
    (let ((input-buffer-password (make-string (length input-buffer) :initial-element #\*)))
      (cond ((equal "" input-buffer-password) (cl-markup:markup (:span :id "cursor" (cl-markup:raw "&nbsp;"))))
            ((eql cursor-index (length input-buffer-password))
             (cl-markup:markup (:span input-buffer-password)
                               (:span :id "cursor" (cl-markup:raw "&nbsp;"))))
            (t (cl-markup:markup (:span (subseq input-buffer-password 0 cursor-index))
                                 (:span :id "cursor" (subseq input-buffer-password cursor-index (+ 1 cursor-index)))
                                 (:span (subseq input-buffer-password (+ 1  cursor-index))))))))
  
  (defun generate-completion-html (completions cursor-index)
    (cl-markup:markup (:ul (loop for i from 0 for completion in completions
                                 collect
  