r9608: * Version 2.11.9

[clsql.git] / sql / conditions.lisp

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index dc48d2fc1201a1da10ad512041b0515621aa2975..4e3380f7e276d655a460d4af995d08029c492834 100644 (file)
--- a/sql/conditions.lisp
+++ b/sql/conditions.lisp
@@ -122,9 +122,9 @@ connection is no longer usable."))
 ;;; CLSQL Extensions
 
 (define-condition sql-warning (warning sql-condition)
-  ((message :initarg :message :reader sql-warning-message))
+  ((message :initarg :message :initform nil :reader sql-warning-message))
   (:report (lambda (c stream)
-            (format stream (sql-warning-message c)))))
+            (format stream "~A" (sql-warning-message c)))))
 
 (define-condition sql-database-warning (sql-warning)
   ((database :initarg :database :reader sql-warning-database))