Changeset 7777

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:

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

trunk/ccl/lib/format.lisp

@@ -2150 +2150 @@
         (princ " (y or n)  " *query-io*)
         (setq response (read-char *query-io*))
+        ;; Consume input up to trailing newline
         (when (peek-char #\NewLine *query-io* nil)
+          ;; And consume the #\newline
           (read-char *query-io*))
         (clear-input *query-io*)