X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fquery.lisp;h=aa6dab7564a49ed0864136661040ff612b7f1f12;hb=b8f63d9b4e978bec3bfc1f4fc471e5ed946781fd;hp=3bfdd224df03ce61367c2c2fa9c5a8599846d585;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git diff --git a/src/code/query.lisp b/src/code/query.lisp index 3bfdd22..aa6dab7 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)