anchor.diff:  
   (defun minibuf-init ()
     (let* ((buffer (make-buffer " *minibuffer*"))
  -         (window (make-window buffer 0 (1- charms/ll:*lines*) charms/ll:*cols* 1)))
  +         (window (make-window buffer 0 (1- (display-height)) (display-width) 1)))
       (setq *minibuf-window* window)))
   
   (defun message (string &rest args)
  
positive.code:           minibuf-read-line-prev-history
            minibuf-read-line-next-history
            minibuf-get-line
            minibuf-read-line-refresh
            minibuf-read-line
            minibuf-read-string
            minibuf-read-number
  
negative.code: (defun minibuf-point-charpos ()
    (window-current-charpos (minibuffer-window)))
  
  (defun minibuf-window-update ()
    (let ((prompt *minibuf-read-line-prompt*))
      (message "~A~A" prompt (minibuf-get-line))
      (screen-move-cursor (window-%screen (minibuffer-window))
                          (+ (multiple-value-bind (strings len)
                                 (split-string prompt #\newline)
                               (+ (* (length "<NL>") (1- len))
                                  (reduce #'+ (mapcar #'str-width strings))))
                             (str-width
                              (join ""
                                    (buffer-take-lines (minibuffer)
                                                       1
                                                       (1- (minibuf-point-linum)))))
                             (* (length "<NL>") (1- (minibuf-point-linum)))
                             (str-width
                              (buffer-line-string (minibuffer)
                                                  (minibuf-point-linum))
                              0
                              (minibuf-point-charpos)))
                          0)
      (charms/ll:wnoutrefresh (window-screen (minibuffer-window)))))
  
  (defun minibuf-read-line-loop (prompt comp-f existing-p)
    (do ((*minibuf-read-line-loop* t)
  