Exponential Explosion of Escape Characters.




Exponential Explosion of Escape Characters


This time, Common Lisp:


? (setf q nil)

NIL

? (setf q (make-symbol (write-to-string q)))

#:NIL

? (setf q (make-symbol (write-to-string q)))

#:|#:NIL|

? (setf q (make-symbol (write-to-string q)))

#:|#:\|#:NIL\||

? (setf q (make-symbol (write-to-string q)))

#:|#:\|#:\\\|#:NIL\\\|\||

? (setf q (make-symbol (write-to-string q)))

#:|#:\|#:\\\|#:\\\\\\\|#:NIL\\\\\\\|\\\|\||

? (setf q (make-symbol (write-to-string q)))

#:|#:\|#:\\\|#:\\\\\\\|#:\\\\\\\\\\\\\\\|#:NIL\\\\\\\\\\\\\\\|\\\\\\\|\\\|\||

? (setf q (make-symbol (write-to-string q)))

#:|#:\|#:\\\|#:\\\\\\\|#:\\\\\\\\\\\\\\\|#:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|#:NIL
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|\\\\\\\\\\\\\\\|\\\\\\\|\\\|\||

? (setf q (make-symbol (write-to-string q)))

#:|#:\|#:\\\|#:\\\\\\\|#:\\\\\\\\\\\\\\\|#:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|#:\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|#:NIL\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\|\\\\\\\\\\\\\\\|\\\\\\\|\\\|\||

? (setf q (make-symbol (write-to-string q)))

#:|#:\|#:\\\|#:\\\\\\\|#:\\\\\\\\\\\\\\\|#:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|#:\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|#:\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|#:NIL\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\|\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\|\\\\\\\\\\\\\\\|\\\\\\\|\\\|\||

? (setf q (make-symbol (write-to-string q)))

#:|#:\|#:\\\|#:\\\\\\\|#:\\\\\\\\\\\\\\\|#:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|#:\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|#:\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|#:\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|#:NIL\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\\\\\\\\\\\\\\\\\\\\\|\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\|\\\\\\\\\\\\\\\|\\\\\\\|\\
\|\||