- $SQL_MAX_MESSAGE_LENGTH msg-length)
- (values
- (prog1
- (convert-from-foreign-string error-message)
- (free-foreign-object error-message))
- (prog1
- (convert-from-foreign-string sql-state)
- (free-foreign-object error-message))
- (deref-pointer msg-length :short)
- (deref-pointer error-code :long)))))
+ #.$SQL_MAX_MESSAGE_LENGTH msg-length)
+ (let ((err (convert-from-foreign-string error-message))
+ (state (convert-from-foreign-string sql-state)))
+
+ (free-foreign-object error-message)
+ (free-foreign-object sql-state)
+ (values
+ err
+ state
+ (deref-pointer msg-length :short)
+ (deref-pointer error-code :long))))))