(defvar *var*)

(defun func (place)
  (setf (car place) 1))

CL-USER> (setf *var* (cons 123 nil))
(123)
CL-USER> *var*
(123)
CL-USER> (func *var*)
1 (1 bit, #x1, #o1, #b1)
CL-USER> *var*
(1)
CL-USER>