Greetings!

Tim Daly <[email protected]> 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
> [email protected]
> http://lists.nongnu.org/mailman/listinfo/axiom-developer
>
>
>
>

-- 
Camm Maguire                                        [email protected]
==========================================================================
"The earth is but one country, and mankind its citizens."  --  Baha'u'llah

_______________________________________________
Axiom-developer mailing list
[email protected]
http://lists.nongnu.org/mailman/listinfo/axiom-developer

Reply via email to