29 lines
501 B
Common Lisp
29 lines
501 B
Common Lisp
(:macro dict-key ( x )
|
|
(':str-cat x ":"))
|
|
|
|
(:macro yot ( x )
|
|
x)
|
|
|
|
(:macro tree ( a b )
|
|
(':reduce-cat a "\n" b))
|
|
|
|
(:macro c-paren-eval (x)
|
|
(':c-not (':c-colon-id x)))
|
|
|
|
(:macro @ ( (x(:c-paren-eval _)) .. tl )
|
|
(':reduce-cat x tl ))
|
|
|
|
(:macro reduce-cat ( x )
|
|
x)
|
|
|
|
(:macro reduce-cat ( x .. tl )
|
|
(':str-cat x
|
|
(':reduce-cat tl)))
|
|
|
|
(:macro cfg ( )
|
|
"")
|
|
(:macro cfg ( x )
|
|
x)
|
|
(:macro cfg ( x .. tl )
|
|
(':tree x (':cfg tl)))
|