(defun caesar( l d)
    (setq r '() )
    (while (eq ( eq l () ) nil ))
    (
       ( cons ( ( + (pop l) d) r) ) 
    )
    (reverse r)
)

(setq somelist '(1 2 3 4))

(caesar somelist 2)