(define-syntax def
(syntax-rules ()
((_ n e1)
(define n e1))
((_ n e1 e2 ...)
(define n
(begin e1 e2 ...)))))
(define-syntax fn
(syntax-rules ()
((_ n e1)
(lambda n
e1))
((_ n e1 e2 ...)
(lambda n
(begin e1 e2 ...)))))
作用很简单，就是简写define为def（学python），简写lambda为fn（学newlisp）
打少好多字母

鼓励，今后多发这种分享帖