(defun caesar( l d)
    (setq r '() )
    (while (!= l () ) )
    (
       ( cons ( ( + (pop l) d) r) ) 
    )
    (reverse r)
)

(setq somelist '(1 2 3 4))

(caesar (somelist 2))