[Openmcl-devel] PPRINT failure

[Taoufik Dachraoui]

Hi

Why the following PPRINT fails:

? (pprint '(LET ((#2=#:G6549 '#1=(0 0 . #1#)) (U 0) V)

(DEFUN SUM (X) (LET ((#3=#:G6548 (PROGN (+ X U V))))

(PROGN (SETF (CAR #2#) #3#)

(SETF U (NTH 0 #2#))

(SETF V (NTH 1 #2#)) (SETF #2# (CDR #2#)) #3#)))))


Unrecoverable stack overflow.

? for help

[16969] Clozure CL kernel debugger:



Thanks

Taoufik
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.clozure.com/pipermail/openmcl-devel/attachments/20150626/34794a3c/attachment.htm>