From c1ce1b5f3a57f711391e9e6af0a7859b7dcca72b Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 30 Jul 2009 14:10:39 +0000 Subject: [PATCH] 1.0.30.21: prettier STYLE-WARNINGS for incompatible type proclamations * Print the specifier, not the type object. --- src/compiler/proclaim.lisp | 8 ++++---- version.lisp-expr | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/src/compiler/proclaim.lisp b/src/compiler/proclaim.lisp index 3864723..ed78315 100644 --- a/src/compiler/proclaim.lisp +++ b/src/compiler/proclaim.lisp @@ -212,10 +212,10 @@ (when (type/= type old-type) ;; FIXME: changing to TYPE-PROCLAMATION-MISMATCH ;; broke late-proclaim.lisp. - (style-warn "The new TYPE proclamation~% ~S~@ - for ~S does not match the old TYPE~@ - proclamation ~S" - type name old-type)))) + (style-warn + "~@" + name (type-specifier type) (type-specifier old-type))))) (setf (info :variable :type name) type) (setf (info :variable :where-from name) :declared))) (push raw-form *queued-proclaims*))) diff --git a/version.lisp-expr b/version.lisp-expr index c140eb0..2f65b6c 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.30.20" +"1.0.30.21" -- 1.7.10.4