Replace epg--gv-nreverse with (cl-callf nreverse ...)

* lisp/epg.el (epg--gv-nreverse): Remove.
(epg-list-keys): Replace it with (cl-callf nreverse ...).

diff --git a/lisp/epg.el b/lisp/epg.el
index dc0e2df58386f3176fb9eccfc5dc5b585756b1c8..091021936ad524ff4f56f6aae13bcfa43b4d6a3a 100644 (file)
--- a/lisp/epg.el
+++ b/lisp/epg.el
@@ -174,10 +174,6 @@
   (file nil :read-only t)
   (string nil :read-only t))
 
-(defmacro epg--gv-nreverse (place)
-  (gv-letplace (getter setter) place
-    (funcall setter `(nreverse ,getter))))
-
 (cl-defstruct (epg-context
                (:constructor nil)
                (:constructor epg-context--make
@@ -1390,10 +1386,10 @@ NAME is either a string or a list of strings."
     (setq keys (nreverse keys)
          pointer keys)
     (while pointer
-      (epg--gv-nreverse (epg-key-sub-key-list (car pointer)))
-      (setq pointer-1 (epg--gv-nreverse (epg-key-user-id-list (car pointer))))
+      (cl-callf nreverse (epg-key-sub-key-list (car pointer)))
+      (setq pointer-1 (cl-callf nreverse (epg-key-user-id-list (car pointer))))
       (while pointer-1
-       (epg--gv-nreverse (epg-user-id-signature-list (car pointer-1)))
+       (cl-callf nreverse (epg-user-id-signature-list (car pointer-1)))
        (setq pointer-1 (cdr pointer-1)))
       (setq pointer (cdr pointer)))
     keys))