Greetings!

Tim Daly <d...@axiom-developer.org> writes:

> (defun compfail (parts0 parts1)
> (let ((same t))
>    (loop for p0 in parts0 for p1 in parts1
>       while same
>       (setq same (eq p0 p1)))))
>

(compile 'compfail)

Take care,

>
> _______________________________________________
> Axiom-developer mailing list
> axiom-develo...@nongnu.org
> http://lists.nongnu.org/mailman/listinfo/axiom-developer
>
>
>
>

-- 
Camm Maguire                                        c...@maguirefamily.org
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah

_______________________________________________
Gcl-devel mailing list
Gcl-devel@gnu.org
http://lists.gnu.org/mailman/listinfo/gcl-devel

Reply via email to