anchor.diff:    (setq *mb-print-flag* t)
     (let ((str initial)
           (comp-flag)
  -        (one-window-p (one-window-p)))
  +        (one-window-p (one-window-p))
  +        (prev-read-log *mb-read-log*)
  +        (next-read-log))
       (do ((break nil))
           (break)
         (write-message (format nil "~a~a" prompt str))
  
positive.code:      ((and comp-flag *completion-window*)
        (let ((*current-window* *completion-window*))
          (set-buffer (car *buffer-list*)))))
      str))
  
  (defun read-string (prompt &optional initial)
  
negative.code: 
  (defvar *mb-win*)
  (defvar *mb-print-flag* nil)
  (defvar *mb-read-log* nil)
  
  (defun mb-init ()
    (setq *mb-win*
  