Stuff

; Addiert eine Zahl d zu allen Elementen einer Liste
;Caesar-Code like, nur mit Zahlen

(defun caesar( l d) ; Funktion caesar
    (setq r '() ) ;initailisiere leere Liste r
    (while (eq ( eq l () ) nil ) ; solange, wie l nicht leer ist
       ( cons ( ( + (pop l) d) r) ) ; verschiebe ( (erstes Element von l) + d) in r
    )
    (reverse r) ; drehe r um
)

(setq somelist '(1 2 3 4)) ;Beispielliste

(caesar somelist 2) ; Funktionsaufruf mit d=2