(defun f (x) 
  (declare (special x))
  (g))

(defun g () x)

(defun kar (x) (car x))

(defun kdr (x) (cdr x))

(defun rplaka (x y) (rplaca x y))

(defun rplakd (x y) (rplacd x y))