Является ли граф циклическим

((a b) (c e) (e d) (d c) (c b) (b a) (a d))

(defun is-cycle (path)
  (let ((s (cons (caar path) nil)))
    (dolist (i path nil)
      (if (member (cadr i) s) (return t) (push (cadr i) s)))))
 
==> is-cycle
 
(is-cycle '((a b) (b e) (e d) (d c) (c b) (b a) (a d)))
 
==> T
 
(is-cycle '((a b) (b e) (e d)))
 
==> NIL

(defun is-cycle (path)
  (let ((s (cons (caar path) nil)))
    (dolist (i path nil)
      (if (member (cadr i) s) (return t) (push (cadr i) s))
    )
  )
)
 
 
==> is-cycle
(is-cycle '((a b) (b e) (e d) (d c) (c b) (b a) (a d)))
 
 
Внутри LET: RETURN: Вызов вне PROG/LOOP
==> ERRSTATE

(defun is-cycle (path)
  (let ((s (cons (caar path) nil)))  ;; s будет хранить список вершин, через которые проходит путь. 
                                             ;; начинаем с первой
    (dolist (i path nil) ;; цикл по ребрам пути. i - очередное ребро
      (if (member (cadr i) s) (return t) (push (cadr i) s))))) ;; если вторая вершина ребра входит в s - обнаружен цикл
                                                                              ;; иначе добавим вторую вершину в список s
 
   ;; если dolist завершился исчерпанием списка - значит циклов нет (nil)