Changeset 8172


Ignore:
Timestamp:
Jan 17, 2008, 3:05:26 PM (12 years ago)
Author:
gb
Message:

Y-OR-N-P fixes from trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/1.2/devel/source/lib/format.lisp

    r4537 r8172  
    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)
    2153           (unread-char #\NewLine *query-io*)
     2154          ;; And consume the #\newline
    21542155          (read-char *query-io*))
    21552156        (clear-input *query-io*)
Note: See TracChangeset for help on using the changeset viewer.