32 lines
555 B
Common Lisp
32 lines
555 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 ocfg ( )
|
|
"")
|
|
(:macro ocfg ( x )
|
|
x)
|
|
(:macro ocfg ( x .. tl )
|
|
(':tree x (':ocfg tl)))
|
|
|
|
(:macro indent ( x )
|
|
(':str-cat " " x))
|