1(mtell "to_poly: topoly.lisp is obsolete; I'm loading to_poly.lisp instead.~%") 2($load "to_poly") 3