(let  ((a (cons 1 2)))
     (progn (set-cdr a 10)
	    (= (and (car a 1) (cdr a 10)))))