list? (list? obj) obj が真のリスト(空リスト、または空リストで終わるペアの連鎖)なら #t、それ以外(循環リストを含む)なら #f を返します。 Run(list? '(a b c)) ; => #t (list? '()) ; => #t (list? '(1 . 2)) ; => #f (define ring (list 1 2)) (set-cdr! (cdr ring) ring) (list? ring) ; => #f