(defun synchronize-keys (src srckey dest destkey)
(let ((skeys (if (listp srckey) srckey (list srckey)))
(dkeys (if (listp destkey) destkey (list destkey))))
(defun synchronize-keys (src srckey dest destkey)
(let ((skeys (if (listp srckey) srckey (list srckey)))
(dkeys (if (listp destkey) destkey (list destkey))))