0.6.11.36:

[sbcl.git] / src / code / query.lisp

diff --git a/src/code/query.lisp b/src/code/query.lisp
index 3bfdd22..c3836e5 100644 (file)
--- 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