- (let ((result (%prepare db sql-native -1 stmtp sql-tail)))
- (if (/= result SQLITE-OK)
- (progn
- (unless (null-pointer-p stmtp)
- ;; There is an error, but a statement has been allocated:
- ;; finalize it (better safe than sorry).
- (%finalize (deref-pointer stmtp 'sqlite3-stmt)))
- (free-foreign-object stmtp)
- (signal-sqlite3-error db))
- (let ((stmt (deref-pointer stmtp 'sqlite3-stmt)))
- (declare (type sqlite3-stmt-type stmt))
- (setf (gethash stmt *stmt-pointers*) stmtp)
- stmt)))))))
+ (let ((result (%prepare db sql-native -1 stmtp sql-tail)))
+ (if (/= result SQLITE-OK)
+ (progn
+ (unless (null-pointer-p stmtp)
+ ;; There is an error, but a statement has been allocated:
+ ;; finalize it (better safe than sorry).
+ (%finalize (deref-pointer stmtp 'sqlite3-stmt)))
+ (free-foreign-object stmtp)
+ (signal-sqlite3-error db))
+ (let ((stmt (deref-pointer stmtp 'sqlite3-stmt)))
+ (declare (type sqlite3-stmt-type stmt))
+ (setf (gethash stmt *stmt-pointers*) stmtp)
+ stmt)))))))