anchor.diff:                  '())
              ,@(if explicit-invisible-input-p
                   `(:invisible-input-p ,invisible-input-p)
  +                '())
  +           ,@(if explicit-show-current-choices-nb
  +                `(:show-current-choices-nb ,show-current-choices-nb)
                   '())
              ,@(if explicit-history
                   `(:history ,history)
  
positive.code:                                (ps:lisp
                                  (format nil "~a~a"
                                          (input-prompt minibuffer)
                                          (if completions
                                              (if marked-completions
                                                  (format nil "[~a/~a]:"
                                                          (length marked-completions)
                                                          (length completions))
                                                  (format nil "[~a]:"
                                                          (length completions)))
                                              ""))))
                           (setf (ps:chain document (get-element-by-id "input-buffer") |innerHTML|)
                                 (ps:lisp input-text))
                           (setf (ps:chain document (get-element-by-id "completions") |innerHTML|)
  
negative.code:                           (input-prompt nil explicit-input-prompt)
                            (input-buffer nil explicit-input-buffer)
                            (invisible-input-p nil explicit-invisible-input-p)
                            (show-current-choices-nb t explicit-show-current-choices-nb)
                            (history nil explicit-history)
                            (multi-selection-p nil explicit-multi-selection-p))
    "See the `minibuffer' class for the argument documentation."
  