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

diff --git a/src/code/query.lisp b/src/code/query.lisp
index aa6dab7..c3836e5 100644
--- a/src/code/query.lisp
+++ b/src/code/query.lisp
@@ -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