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:              (when (equalp arg option)
                 (return-from find-option (car args))))
      nil))
  
  (defun say (datum &rest args)
    "Prints a message on the screen.
  
negative.code:                   (say msg :color color))
                  (when default
                    (say "[~A] " default :color color))
                  (duologue-read-line)))))
        (let ((pathname
                (loop do
                  (let* ((input (read-input))
  