From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 23 Dec 2020 09:48:29 +0000 (+0100)
Subject: * lisp/emacs-lisp/comp-cstr.el (comp-cstr-copy): Tweak for perf.
X-Git-Tag: emacs-28.0.90~2727^2~234
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2a22fa8b68d18b83b0a20be66b9123454bf7b6e5;p=emacs.git

* lisp/emacs-lisp/comp-cstr.el (comp-cstr-copy): Tweak for perf.
---

diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 22d3958aed3..aaeb9cf3e9b 100644
--- a/lisp/emacs-lisp/comp-cstr.el
+++ b/lisp/emacs-lisp/comp-cstr.el
@@ -113,10 +113,10 @@ Integer values are handled in the `range' slot.")
 (defun comp-cstr-copy (cstr)
   "Return a deep copy of CSTR."
   (with-comp-cstr-accessors
-    (make-comp-cstr :typeset (copy-tree (typeset cstr))
-                    :valset (copy-tree (valset cstr))
+    (make-comp-cstr :typeset (copy-sequence (typeset cstr))
+                    :valset (copy-sequence (valset cstr))
                     :range (copy-tree (range cstr))
-                    :neg (copy-tree (neg cstr)))))
+                    :neg (neg cstr))))
 
 (defsubst comp-cstr-empty-p (cstr)
   "Return t if CSTR is equivalent to the `nil' type specifier or nil otherwise."