From a7fabe1c983519adc93c68fe71f430f488be0098 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 24 Feb 2025 00:55:16 +0100 Subject: [PATCH] Use cl-with-gensyms in with-sqlite-transaction * lisp/sqlite.el (cl-lib): Require at compile-time. (with-sqlite-transaction): Use cl-with-gensyms. (cherry picked from commit 637c73d3a804f7e64736b87994e8974892529b00) --- lisp/sqlite.el | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/lisp/sqlite.el b/lisp/sqlite.el index 140b79ced0a..f4840d46f07 100644 --- a/lisp/sqlite.el +++ b/lisp/sqlite.el @@ -23,6 +23,8 @@ ;;; Code: +(eval-when-compile (require 'cl-lib)) + (declare-function sqlite-transaction "sqlite.c") (declare-function sqlite-commit "sqlite.c") (declare-function sqlite-rollback "sqlite.c") @@ -35,10 +37,7 @@ If BODY signals an error, or transaction commit fails, roll back the transaction changes before allowing the signal to propagate." (declare (indent 1) (debug (form body))) - (let ((db-var (gensym)) - (func-var (gensym)) - (res-var (gensym)) - (commit-var (gensym))) + (cl-with-gensyms (db-var func-var res-var commit-var) `(let ((,db-var ,db) (,func-var (lambda () ,@body)) ,res-var ,commit-var) -- 2.39.5