X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fquery.lisp;h=c3836e54e9e3587d2e0369d7bf39e3252dc723ae;hb=f0338f6fa732b21daa4405e19465bd460e0526d9;hp=1a27b785766bc36838a9acff4b7ea0d5c9fcfdc7;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git

diff --git a/src/code/query.lisp b/src/code/query.lisp
index 1a27b78..c3836e5 100644
--- a/src/code/query.lisp
+++ b/src/code/query.lisp
@@ -16,7 +16,7 @@
   (string-trim " 	" (read-line *query-io*)))
 
 ;;; FIXME: The ANSI documentation for these says that they
-;;; prompt with strings a la "(Y or N)" or "(Yes or No)", but
+;;; prompt with strings like "(Y or N)" or "(Yes or No)", but
 ;;; these implementations don't.
 
 (defun y-or-n-p (&optional format-string &rest arguments)
@@ -44,8 +44,6 @@
 	     (apply #'format *query-io* format-string arguments))
 	   (force-output *query-io*)))))))
 
-;;; This is similar to Y-OR-N-P, but it clears the input buffer, beeps, and
-;;; uses READ-LINE to get "YES" or "NO".
 (defun yes-or-no-p (&optional format-string &rest arguments)
   #!+sb-doc
   "YES-OR-NO-P is similar to Y-OR-N-P, except that it clears the