mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

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

Browse source
This commit is contained in:
Andrea Corallo 2020-12-23 10:48:29 +01:00
parent 433ae7b0a5
commit 2a22fa8b68
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/emacs-lisp/comp-cstr.el
View file

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