(defun a ()
  (+ a 1 +1 -1 1.0 #x0 ,a \a :a t nil (0 . 0)))