diff options
| author | Noam Postavsky <npostavs@gmail.com> | 2018-06-03 12:55:37 -0400 |
|---|---|---|
| committer | Noam Postavsky <npostavs@gmail.com> | 2018-06-03 12:55:40 -0400 |
| commit | 9a14b4d1ce84e5e0739572729670b8f10d234097 (patch) | |
| tree | 880aa4dab830e5e7699e6eace5c0a1097a091baa /lisp/emacs-lisp | |
| parent | 5fa73a7d98040f749f4cd45cfa40cf3c1c8cc2e3 (diff) | |
| parent | ed962f2b8a2f63c7dbf31ec5df3c915703dd571d (diff) | |
| download | emacs-9a14b4d1ce84e5e0739572729670b8f10d234097.tar.gz | |
; Merge: backports from master
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/cl-print.el | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-print.el b/lisp/emacs-lisp/cl-print.el index de41d826713..7c0e81c9349 100644 --- a/lisp/emacs-lisp/cl-print.el +++ b/lisp/emacs-lisp/cl-print.el @@ -62,9 +62,12 @@ call other entry points instead, such as `cl-prin1'." (princ "(" stream) (cl-print-object car stream) (while (and (consp object) - (not (if cl-print--number-table - (numberp (gethash object cl-print--number-table)) - (memq object cl-print--currently-printing)))) + (not (cond + (cl-print--number-table + (numberp (gethash object cl-print--number-table))) + ((memq object cl-print--currently-printing)) + (t (push object cl-print--currently-printing) + nil)))) (princ " " stream) (cl-print-object (pop object) stream)) (when object |