anchor.diff:                                  (engine (default-search-engine))
                                   (completion (completion-function engine))
                                   (all-terms (str:join " " terms)))
  -                  (mapcar (alex:curry #'make-instance 'new-url-query
  -                                      :engine engine :query)
  +                  (mapcar (alex:rcurry #'make-completion-query
  +                                       :engine      engine
  +                                       :check-dns-p check-dns-p)
                             (funcall (completion-function engine) all-terms)))))))
   
   (define-class new-url-or-search-source (prompter:source)
  
positive.code:      (t (query query)))))
  
  (defmethod prompter:object-attributes ((query new-url-query))
    `(("URL or new query" ,(query query))
      ("Search engine?" ,(if (engine query) (shortcut (engine query)) ""))))
  
  (defun input->queries (input &key (check-dns-p t)
                                 (engine-completion-p))
  
negative.code:                           :base-url "https://en.wikipedia.org/w/api.php?action=opensearch&format=json&search=~a"
                            :processing-function
                            #'(lambda (results)
                                (alex:when-let* ((results results)
                                                 (results (json:decode-json-from-string results)))
                                  (mapcar #'list (second results) (fourth results))))))
            (make-instance 'search-engine
                           :shortcut "ddg"
                           :search-url "https://duckduckgo.com/?q=~a"
  