[clisp-list] Re: circular constant hangs defun

[Sam S. <sd...@gn...>]

> *  <Qriba@Wbiv.Arg> [2005-06-28 16:39:13 -0400]:
>
> Defun still hangs.

indeed.
please try the appended patch.
thanks for your bug report.

-- 
Sam Steingold (http://www.podval.org/~sds) running w2k
<http://www.camera.org> <http://www.mideasttruth.com/> <http://ffii.org/>
<http://www.openvotingconsortium.org/> <http://www.dhimmi.com/>
186,000 Miles per Second.  It's not just a good idea.  IT'S THE LAW.


--- init.lisp	21 Jun 2005 09:40:12 -0400	1.235
+++ init.lisp	28 Jun 2005 17:29:21 -0400	
@@ -1290,6 +1290,7 @@
       (let ((form (car body)))
         (if ; determine, if form contains a (RETURN-FROM name ...) :
          (and (consp form)
+              (not (eq (first form) 'quote))
               (or (and (eq (first form) 'return-from) ; (RETURN-FROM name ...)
                        (eq (second form) name))
                   (and (consp (first form))           ; lambda-list