(setq test-alist '((test . yyy)))C-j ((test . yyy))
(setq test-alist (cons '(foo . var) test-alist))C-j ((foo . var) (test . yyy))