r9335: Automated commit for Debian build of clsql upstream-version-2.10.16

[clsql.git] / base / conditions.lisp

diff --git a/base/conditions.lisp b/base/conditions.lisp
index 4954eced7fdbb07dddd02794da93c59484ab3fad..6b7d971d6cf3df623922b11c06e7aeadeaa87fff 100644 (file)
--- 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))