; 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 das erste Elemet + d in r
    )
    (reverse r) ; drehe r um
)

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

(caesar somelist 2) ; Funktionsaufruf mit d=2