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

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))