(defun max-djup-av-del (l s) (cond ((null s) (max-djup l)) (t (max-djup-av-del (part-of-1 l (first s)) (rest s))))) (defun part-of-1 (l tal) (cond ((= tal 1) (first l)) (t (part-of-1 (rest l) (- tal 1))))) (max-djup-av-del '((a((b))) b c) '(1 2)) ;; Eller så kan man använda funktionen nth, som redan finns (defun part-of (l tal) (nth (- tal 1) l))