(defun compfail (parts0 parts1)
(let ((same t))
(loop for p0 in parts0 for p1 in parts1
while same
(setq same (eq p0 p1)))))_______________________________________________ Axiom-developer mailing list [email protected] http://lists.nongnu.org/mailman/listinfo/axiom-developer
