How do I loop over a longer list with map that depends on a shorter list wrapping it to apply some function to the longer list in Common Lisp?

Question

Basically, I\'d like the equivalent of this code in Common Lisp, but in a preferably more convenient way.

(defun circular (items) (setf (cdr (last items)) ite