projects
/
clsql.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
;;; 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)
(: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))
(define-condition sql-database-warning (sql-warning)
((database :initarg :database :reader sql-warning-database))