(defun circular-list-p (lis)
(do ((うさこ (cdr lis) (cdr (cdr うさこ)))
(カメ吉 lis (cdr カメ吉)))
((or (null うさこ)
(eq うさこ カメ吉))
(not (null うさこ)))))