[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
feature/native-comp 2a22fa8 1/5: * lisp/emacs-lisp/comp-cstr.el (comp-cs
From: |
Andrea Corallo |
Subject: |
feature/native-comp 2a22fa8 1/5: * lisp/emacs-lisp/comp-cstr.el (comp-cstr-copy): Tweak for perf. |
Date: |
Wed, 23 Dec 2020 10:23:20 -0500 (EST) |
branch: feature/native-comp
commit 2a22fa8b68d18b83b0a20be66b9123454bf7b6e5
Author: Andrea Corallo <akrl@sdf.org>
Commit: Andrea Corallo <akrl@sdf.org>
* lisp/emacs-lisp/comp-cstr.el (comp-cstr-copy): Tweak for perf.
---
lisp/emacs-lisp/comp-cstr.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/comp-cstr.el b/lisp/emacs-lisp/comp-cstr.el
index 22d3958..aaeb9cf 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."