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

diff --git a/src/code/query.lisp b/src/code/query.lisp
index 3bfdd22..c3836e5 100644
--- a/src/code/query.lisp
+++ b/src/code/query.lisp
@@ -11,15 +11,12 @@
 
 (in-package "SB!IMPL")
 
-(file-comment
-  "$Header$")
-
 (defun query-readline ()
   (force-output *query-io*)
   (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)
@@ -47,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