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

cl-print: handle circular objects when `print-circle' is nil (Bug#27117)

Browse source 
* lisp/emacs-lisp/cl-print.el (cl-print--currently-printing): New variable.
(cl-print-object): When `print-circle' is nil, bind it to a list of
objects that are currently printing to avoid printing the same object
endlessly.
* test/lisp/emacs-lisp/cl-print-tests.el (cl-print-circle): New test.
This commit is contained in:
Noam Postavsky 2017-05-28 17:01:05 -04:00
parent 94306c8b0d
commit a415c8bccb
2 changed files with 32 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

8
test/lisp/emacs-lisp/cl-print-tests.el
View file

@ -47,4 +47,12 @@
"\\`(#1=#s(foo 1 2 3) #1#)\\'"
(cl-prin1-to-string (list x x)))))))
(ert-deftest cl-print-circle ()
(let ((x '(#1=(a . #1#) #1#)))
(let ((print-circle nil))
(should (string-match "\\`((a . #[0-9]) (a . #[0-9]))\\'"
(cl-prin1-to-string x))))
(let ((print-circle t))
(should (equal "(#1=(a . #1#) #1#)" (cl-prin1-to-string x))))))
;;; cl-print-tests.el ends here.