Aşağıdaki lisp kodu bir liste içinde (listem) bir fonksiyondan gelen verileri saklar.

<pre id=code><font face=courier size=2 id=code>
(defun c:Listele (/ listem i)
(setq listem nil
i 0
)
(while (< i 10)
(setq listem (cons (birIslem i) listem)) <font color=green>;cons bir atomu listenin başına ekler</font id=green>
(setq i (1+ i))
)

<font color=green>;tam burada listem= '(18 16 14 12 10 8 6 4 2 0)</font id=green>
(setq listem (reverse listem))
<font color=green>;burada da listem= '(0 2 4 6 8 10 12 14 16 18)</font id=green>


(setq kacinci (getint "\nListenin kaçıncı elemanını görmek istiyorsunuz: "))

(princ (nth kacinci listem)) <font color=green>;İlk elemanın index nosu 0 (sıfır)dır</font id=green>
(princ)
)

<font color=green>;Kullanıcı tanımlı herhangi bir işlem</font id=green>
(defun birIslem (parametre1)
(* 2 parametre1)
)
</font id=code></pre id=code>