Пример работы со списком

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
setq list (quote (a b c (d e f)));
print (cdr (cdr (cdr list)));
defun printList (list)
{
if (== list nil)(return "End!");
print "Element: " (car list);
printList (cdr list);
};
printList list;