Changeset 7777


Ignore:
Timestamp:
Nov 29, 2007, 9:46:52 AM (13 years ago)
Author:
gb
Message:

Add a comment or two to Y-OR-N-P (and it was ticket:190 that described
the incorrect behavior.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/format.lisp

    r7776 r7777  
    21502150        (princ " (y or n)  " *query-io*)
    21512151        (setq response (read-char *query-io*))
     2152        ;; Consume input up to trailing newline
    21522153        (when (peek-char #\NewLine *query-io* nil)
     2154          ;; And consume the #\newline
    21532155          (read-char *query-io*))
    21542156        (clear-input *query-io*)
Note: See TracChangeset for help on using the changeset viewer.