- (error 'sql-connection-error
- :database-type database-type
- :connection-spec connection-spec
- :error-id (PQstatus connection)
- :message (tidy-error-message
- (PQerrorMessage connection))))
+ (let ((pqstatus (PQstatus connection))
+ (pqmessage (tidy-error-message (PQerrorMessage connection))))
+ (PQfinish connection)
+ (error 'sql-connection-error
+ :database-type database-type
+ :connection-spec connection-spec
+ :error-id pqstatus
+ :message pqmessage)))