$ 0 0 (setq alist '(a b c)) ;(a b c) (cons '1 alist) ;(1 a b c) (prin1 alist) ;(a b c) (setq alist (cons '1 alist)) (prin1 alist) ;(1 a b c ...