;OR

(defun rev2 (list)
     (setq aux (reverse list))
     (rplaca list (car aux))
     (rplacd list (cdr aux))
     )
(print (rev2 l))
(print (eql l (rev2 l)))