X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=sql%2Fconditions.lisp;fp=sql%2Fconditions.lisp;h=4e3380f7e276d655a460d4af995d08029c492834;hp=dc48d2fc1201a1da10ad512041b0515621aa2975;hb=cc7abc6063ff8a803064c75c400ec7d31fd29a21;hpb=aee3ea30595ebee301ccb1532062053c3c580e19

diff --git a/sql/conditions.lisp b/sql/conditions.lisp
index dc48d2f..4e3380f 100644
--- 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))