CDR - Lisp

Как можна доопределить функцию CDR(Х) если Х атом,можна использовать только 7 основных функций

Листинг программы

(define (my-cdr lst)
  (when (list? lst) (cdr lst)))

Объяснение кода листинга программы

В данном коде определен вспомогательный функциональный язык программирования Lisp с помощью которого реализован алгоритм CDR.

(define (my-cdr lst)— функция my-cdr принимает на вход ссылку на список (lst).
(when (list? lst)— проверка, является ли lst списком.
(cdr lst)— если lst является списком, то возвращается его хвост (cdr).
(else— если lst не является списком, то возвращается пустой список. Таким образом, если передать в функцию my-cdr ссылку на непустой список, то вернется его хвост, а если передать пустой список или не список, то вернется пустой список.