Changeset 7776

Timestamp:

Nov 29, 2007, 1:41:12 AM (17 years ago)

Author:

Gary Byers

Message:

Fix Y-OR-N-P: don't assume that PEEK-CHAR does a READ-CHAR, but if we
see a buffered #\Newline, read it. This should fix ticket:190, which
should have been called "Y-OR-N-P makes invalid assumptions about how
PEEK-CHAR is implemented."

(All of this just has to do with consuming a trailing #\Newlime so that
it isn't echoed.)

File:

• trunk/ccl/lib/format.lisp (modified) (1 diff)

trunk/ccl/lib/format.lisp

@@ -2151 +2151 @@
         (setq response (read-char *query-io*))
         (when (peek-char #\NewLine *query-io* nil)
-          (unread-char #\NewLine *query-io*)
           (read-char *query-io*))
         (clear-input *query-io*)