LISP中如何实现长方形与圆最近连线算法?