>>35
(circular-list-p 'a) -> SIMPLE-TYPE-ERROR [CDR: A is not a LIST]
(circular-list-p '(a . b)) -> SIMPLE-TYPE-ERROR [CDR: B is not a LIST]