newlispfanclub.alh.net

Code: Select all

(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)