bug#36566: 27.0.50; debug is sometimes horribly slow

[Lars Ingebrigtsen]

Lars Ingebrigtsen <larsi@gnus.org> writes:

> I was thinking something along the lines of
>
> (prin1 object nil '((depth . 4) (circle . t)))

OK, I've now done a rough implementation:

(let ((print-length 10))
  (prin1 (make-list 20 t) (current-buffer) t)
  nil)
(t t t t t t t t t t t t t t t t t t t t)

(let ((print-length 10))
  (prin1 (make-list 20 t) (current-buffer) '((length . 5)))
  nil)
(t t t t t ...)

Don't have time for more today, but I think this has promise.  And this
means that we can introduce more printer settings without introducing
more global dynamic variables.

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no