procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

cl-make-random-state was not copying its arg

Browse source 
Problem reported by Xu Chunyang (Bug#33731).
* lisp/emacs-lisp/cl-extra.el (cl-make-random-state):
Use copy-sequence, not copy-tree, so that the record is copied.
* test/lisp/emacs-lisp/cl-extra-tests.el:
(cl-extra-test-cl-make-random-state): New test.
This commit is contained in:
Paul Eggert 2018-12-19 13:42:21 -08:00
parent fda43a7bef
commit f4ea746451
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
test/lisp/emacs-lisp/cl-extra-tests.el
View file

@ -94,4 +94,9 @@
(should (equal (list lst3 (cdr lst3) (cddr lst3))
(cl-maplist fn3 lst lst2 lst3)))))
(ert-deftest cl-extra-test-cl-make-random-state ()
(let ((s (cl-make-random-state)))
;; Test for Bug#33731.
(should-not (eq s (cl-make-random-state s)))))
;;; cl-extra-tests.el ends here