Recursive reading and printing

2026-09-07 10:53:21 -07:00
parent 3dfac40e7e
commit a68ddba589
7 changed files with 255 additions and 21 deletions
@@ -23,4 +23,4 @@
  (princ datum print-char-fun)
  (funcall (or print-char-fun 'write-byte) ?\n))

-(princln (list (symbolp 1) '1a '1aa))
+(princln '#1=(a '#2=(a #1# c) . #1#))