From 2e5d4bd590d0603103f7677bcdf7c540469492b5 Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Tue, 5 Aug 2008 12:58:09 +0000 Subject: [PATCH] 1.0.19.23: COMPILER-WARN accepts conditions * Accidentally left out from 1.0.19.12. --- src/compiler/compiler-error.lisp | 10 ++++------ version.lisp-expr | 2 +- 2 files changed, 5 insertions(+), 7 deletions(-) diff --git a/src/compiler/compiler-error.lisp b/src/compiler/compiler-error.lisp index d2fbbfbe4..aa597ce10 100644 --- 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 7f183ba1b..6110b0c9e 100644 --- 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" -- 2.11.4.GIT