:initform nil
:reader sql-error-database))
(:report (lambda (c stream)
- (format stream "A database error occurred: ~A / ~A~% ~A"
+ (format stream "A database error occurred~A: ~A / ~A~% ~A"
(if (sql-error-database c)
(format nil " on database ~A" (sql-error-database c))
"")
(defun signal-no-database-error (database)
(error 'sql-database-error
- :message "Not a database: ~A." database))
+ :message (format nil "Not a database: ~A." database)))
;;; CLSQL Extensions