Re: Circularity detection broken in ASDF

Hi Richard,

I've just applied this.

thanks,

On Sep 3, 2008, at 6:27 PM, Richard M Kreuter wrote:

> Hi,
>
> (I tried posting this once before, but gmane and sourceforge seem to
> disagree about what got through.  I've subscribed now.)
>
> It seems that circularity detection is broken in asdf 1.123 and
> therabouts.  Patch attached.
>
> Demonstration:
>
> * (require "ASDF")
>
> ("ASDF")
> * (progn
>   (with-open-file (f "0.lisp" :direction :output :if- 
> exists :supersede)
>     (print 'foo f))
>   (with-open-file (f "1.lisp" :direction :output :if- 
> exists :supersede)
>     (print 'bar f))
>   nil)
>
> NIL
>
> * (asdf:defsystem circ
>   :pathname *default-pathname-defaults*
>   :components ((:file "0" :depends-on ("1"))
>                (:file "1" :depends-on ("0"))))
>
> #<ASDF:SYSTEM "circ" {10025620C1}>
> * (asdf:oos 'asdf:compile-op "circ")
> Control stack guard page temporarily disabled: proceed with caution
>
> debugger invoked on a SB-KERNEL::CONTROL-STACK-EXHAUSTED in thread  
> #<THREAD "initial thread" {1002450D61}>:
>  Control stack exhausted (no more space for function call frames).   
> This is probably due to heavily nested or infinitely recursive  
> function calls, or a tail call that SBCL cannot or has not optimized  
> away.
>
> Type HELP for debugger help, or (SB-EXT:QUIT) to exit from SBCL.
>
> restarts (invokable by number or by possibly-abbreviated name):
>  0: [ABORT] Exit debugger, returning to top level.
>
> (SB-KERNEL::CONTROL-STACK-EXHAUSTED-ERROR)
> 0] :a
>
> --
> RmK
>
> < 
> asdf 
> .diff 
> > 
> -------------------------------------------------------------------------
> This SF.Net email is sponsored by the Moblin Your Move Developer's  
> challenge
> Build the coolest Linux based applications with Moblin SDK & win  
> great prizes
> Grand prize is a trip for two to an Open Source event anywhere in  
> the world
> http://moblin-contest.org/redirect.php?banner_id=100&url=/_______________________________________________
> cclan-list mailing list
> [email protected]
> https://lists.sourceforge.net/lists/listinfo/cclan-list

--
Gary Warren King, metabang.com
Cell: (413) 559 8738
Fax: (206) 338-4052
gwkkwg on Skype * garethsan on AIM





-------------------------------------------------------------------------
This SF.Net email is sponsored by the Moblin Your Move Developer's challenge
Build the coolest Linux based applications with Moblin SDK & win great prizes
Grand prize is a trip for two to an Open Source event anywhere in the world
http://moblin-contest.org/redirect.php?banner_id=100&url=/