1.0.19.23: COMPILER-WARN accepts conditions

 * Accidentally left out from 1.0.19.12.

diff --git a/src/compiler/compiler-error.lisp b/src/compiler/compiler-error.lisp
index d2fbbfb..aa597ce 100644 (file)
--- a/src/compiler/compiler-error.lisp
+++ b/src/compiler/compiler-error.lisp
@@ -100,14 +100,12 @@
       (signal-error ()
         (error condition)))))
 
-(declaim (ftype (function (string &rest t) (values))
-                compiler-warn compiler-style-warn))
-(defun compiler-warn (format-string &rest format-args)
-  (apply #'warn format-string format-args)
+(defun compiler-warn (datum &rest arguments)
+  (apply #'warn datum arguments)
   (values))
 
-(defun compiler-style-warn (format-string &rest format-args)
-  (apply #'style-warn format-string format-args)
+(defun compiler-style-warn (datum &rest arguments)
+  (apply #'style-warn datum arguments)
   (values))
 
 (defun make-compiler-error-form (condition source)

diff --git a/version.lisp-expr b/version.lisp-expr
index 7f183ba..6110b0c 100644 (file)
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.19.22"
+"1.0.19.23"