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