[Sbcl-commits] CVS: sbcl/src/code query.lisp,1.5,1.6

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv6992/src/code

Modified Files:
	query.lisp 
Log Message:
0.8.0.9:
	Minor buglet fixes:
	... remove bogus YES-OR-NO-P and Y-OR-N-P extra level of 
		indirection.  (thanks to Antonio Martinez)
	... make clocc-ansi-test whine less, by not making 
		COMPILER-ERROR inherit from SERIOUS-CONDITION
	... add a couple of IGNORE/IGNORABLEs


Index: query.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/query.lisp,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- query.lisp	17 Apr 2003 13:05:48 -0000	1.5
+++ query.lisp	27 May 2003 16:17:27 -0000	1.6
@@ -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)))