<div dir="ltr">Hi<div><br></div><div>Why the following PPRINT fails:</div><div><br></div><div>







<p class="">? (pprint '(<span class="">LET</span> ((#2=#:G6549 '#1=(0 0 . #1#)) (U 0) V)</p>
<p class="">(<span class="">DEFUN</span> <span class="">SUM</span> (X) (<span class="">LET</span> ((#3=#:G6548 (<span class="">PROGN</span> (+ X U V))))</p>
<p class="">(<span class="">PROGN</span> (SETF (CAR #2#) #3#)</p>
<p class="">(SETF U (NTH 0 #2#))</p>
<p class="">(SETF V (NTH 1 #2#)) (SETF #2# (CDR #2#)) #3#)))))</p>
<p class=""><br></p>
<p class="">Unrecoverable stack overflow.</p>
<p class="">? for help</p>
<p class="">[16969] Clozure CL kernel debugger:</p>
<p class=""><br></p><p class=""><br></p><p class="">Thanks</p><p class="">Taoufik</p></div></div>