anchor.diff:                 (declare (ignore y))
                  (push (string-downcase x) encodings))
                lem-base::*encoding-collections*)
  -    (let ((name (prompt-for-line (format nil "~A(~(~A~))" prompt lem-base::*default-external-format*) ""
  -                                 (lambda (str) (completion str encodings))
  -                                 (lambda (encoding) (or (equal encoding "")
  -                                                        (find encoding encodings :test #'string=)))
  -                                 history-name)))
  +    (let ((name (prompt-for-line
  +                 (format nil "~A(~(~A~))" prompt lem-base::*default-external-format*) ""
  +                 (lambda (str) (completion str encodings))
  +                 (lambda (encoding) (or (equal encoding "")
  +                                        (find encoding encodings :test #'string=)))
  +                 history-name)))
         (cond ((equal name "") lem-base::*default-external-format*)
               (t (read-from-string (format nil ":~A" name)))))))
  
positive.code:                                            (end (current-point)))
                                  (line-start start)
                                  (line-offset end 0 prev-prompt-length)
                                  (put-text-property start end :attribute 'minibuffer-prompt-attribute)
                                  (put-text-property start end :read-only t)
                                  (put-text-property start end :field t)))
                              (move-point (current-point) minibuf-buffer-prev-point)
  
negative.code:   (when (and (not *enable-recursive-minibuffers*) (< 0 *minibuf-read-line-depth*))
      (editor-error "ERROR: recursive use of minibuffer"))
    (let ((*minibuffer-calls-window* (current-window))
          (*minibuf-read-line-history*
            (let ((table (gethash history-name *minibuf-read-line-history-table*)))
              (or table
                  (setf (gethash history-name *minibuf-read-line-history-table*)
                        (lem.history:make-history))))))
      (let ((result
              (catch +recursive-minibuffer-break-tag+
                (handler-case
  