added (defun (setf maru-car) ...) and (defun (setf maru-cdr) ...)