Code Select Expand(define-macro (ttt1 a) (eval a))(define (ttt) (ttt1 (args)))(ttt)> ()(ttt 1)> ();The workaround:(define (ttt) (let (x (args)) (ttt1 x))(ttt 1)> (1)