projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.8.10.23:
[sbcl.git]
/
src
/
code
/
query.lisp
diff --git
a/src/code/query.lisp
b/src/code/query.lisp
index
4cbe3f8
..
bd08d5d
100644
(file)
--- a/
src/code/query.lisp
+++ b/
src/code/query.lisp
@@
-40,7
+40,7
@@
n or N as a negative answer. It asks again if you enter any other
characters."
(flet ((print-query ()
n or N as a negative answer. It asks again if you enter any other
characters."
(flet ((print-query ()
- (maybe-print-query "(y or n)" format-string arguments)))
+ (apply #'maybe-print-query "(y or n)" format-string arguments)))
(loop (print-query)
(case (query-read-char)
((#\y #\Y) (return t))
(loop (print-query)
(case (query-read-char)
((#\y #\Y) (return t))
@@
-53,7
+53,7
@@
input buffer, beeps, and uses READ-LINE to get the strings
YES or NO."
(flet ((print-query ()
input buffer, beeps, and uses READ-LINE to get the strings
YES or NO."
(flet ((print-query ()
- (maybe-print-query "(yes or no)" format-string arguments)))
+ (apply #'maybe-print-query "(yes or no)" format-string arguments)))
(beep *query-io*)
(loop (print-query)
(let ((input (query-read-line)))
(beep *query-io*)
(loop (print-query)
(let ((input (query-read-line)))