From 383c04e3c27f593886d10b2bdd85f50cfc3fbfc0 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Fri, 19 Sep 2008 17:41:15 +0000
Subject: [PATCH] We used the wrong class for the warnings

---
 src/clos/standard.lsp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/clos/standard.lsp b/src/clos/standard.lsp
index 3d77b553d..09023f355 100644
--- a/src/clos/standard.lsp
+++ b/src/clos/standard.lsp
@@ -414,8 +414,9 @@ because it contains a reference to the undefined class~%  ~A"
 	 (error "~a is not a valid class specifier." class-or-symbol))
 	((find-class class-or-symbol fail))
 	(t
-	 (warn 'style-warning
-	       "Class ~A has been forward referenced." class-or-symbol)
+	 (warn 'ext::simple-style-warning
+	       :format-control "Class ~A has been forward referenced."
+	       :format-arguments (list class-or-symbol))
 	 (ensure-class class-or-symbol
 		       :metaclass 'forward-referenced-class
 		       :direct-superclasses (list (find-class 'standard-object))