Function: cdr-safe
Return the cdr of OBJECT if it is a cons cell, or else nil.
(fn OBJECT)