(defun test (x)
  (let ((y 1))
    (ceval (y) x)))

(print (test 'y))