anchor.diff:                  (say msg :color color)
                   (when default
                     (say "[~A] " default :color color))
  -                (string-trim (list #\ ) (read-line))))))
  +                (string-trim (list #\ ) (duologue-read-line))))))
         (when print-options
           (print-options))
         (let* ((chosen-option (read-option))
  
positive.code:              (say msg :color color)
               (when default-p
                 (say "[~A] " (format-boolean default) :color color))
               (string-trim (list #\ ) (read-line))))
      (let ((answer (ask-question)))
        (loop
          do
  
negative.code:                   (say msg :color color))
                  (when default
                    (say "[~A] " default :color color))
                  (duologue-read-line)))))
        (let ((pathname
                (loop do
                  (let* ((input (read-input))
  