X-Git-Url: http://git.kpe.io/?p=clsql.git;a=blobdiff_plain;f=base%2Fconditions.lisp;h=6b7d971d6cf3df623922b11c06e7aeadeaa87fff;hp=4954eced7fdbb07dddd02794da93c59484ab3fad;hb=09f07ac9d914a83f9426609f3264f4e66b5a6d97;hpb=1dda729b250779079efbdc1d3f6bbb3ae4a20ba4

diff --git a/base/conditions.lisp b/base/conditions.lisp
index 4954ece..6b7d971 100644
--- a/base/conditions.lisp
+++ b/base/conditions.lisp
@@ -98,7 +98,7 @@ and signal an clsql-invalid-spec-error if they don't match."
 
 (define-condition clsql-sql-error (clsql-error)
   ((database :initarg :database :reader clsql-sql-error-database)
-   (message :initarg :message :initarg nil :reader clsql-sql-error-message)
+   (message :initarg :message :initform nil :reader clsql-sql-error-message)
    (expression :initarg :expression :initarg nil :reader clsql-sql-error-expression)
    (errno :initarg :errno :initarg nil :reader clsql-sql-error-errno)
    (error :initarg :error :initarg nil :reader clsql-sql-error-error))