2019-12-06 22:00:55 |
Paul F. Dietz |
description |
(in-package :cl-user)
(with-standard-io-syntax (let ((*print-pretty* t) (*print-circle* t)) (print '(let () (let () x))) (values)))
==>
(LET #1=()
(LET #1#
X))
This does not happen if LET is replaced by a random symbol:
(with-standard-io-syntax (let ((*print-pretty* t) (*print-circle* t)) (print '(f () (f () x))) (values)))
==>
(F NIL (F NIL X))
It does happen with some other standardized symbols (LET*, DOTIMES, PROG, for example). |
(in-package :cl-user)
(with-standard-io-syntax (let ((*print-pretty* t) (*print-circle* t)) (print '(let () (let () x))) (values)))
>> (LET #1=()
(LET #1#
X))
This does not happen if LET is replaced by a random symbol:
(with-standard-io-syntax (let ((*print-pretty* t) (*print-circle* t)) (print '(f () (f () x))) (values)))
>> (F NIL (F NIL X))
It does happen with some other standardized symbols (LET*, DOTIMES, PROG, for example). |
|