X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fquery.lisp;h=bd08d5d3c268bc7c95468710caba7ba54ddb3cfe;hb=c7de1989d006e0b3a4f26143b7a81c9bdb754101;hp=4cbe3f8bb675b80e99f266f07decebfa5b9ee59b;hpb=96de323a7da5d9f72473b48625dcb6d084ec0a3b;p=sbcl.git

diff --git a/src/code/query.lisp b/src/code/query.lisp
index 4cbe3f8..bd08d5d 100644
--- 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 ()
-	   (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))
@@ -53,7 +53,7 @@
    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)))