44 lines
1.0 KiB
Common Lisp
44 lines
1.0 KiB
Common Lisp
(:macro rm-first (x .. tl)
|
|
tl)
|
|
|
|
(:macro rm-indent ( (x(:c-li0-eq _ :tree)) )
|
|
(':tree
|
|
(':rm-indent-each
|
|
(':rm-first
|
|
(':unpack x)))))
|
|
(:macro rm-indent ( (x(:c-li0-eq _ :yot)) )
|
|
(':yot
|
|
(':rm-indent
|
|
(':rm-first
|
|
(':unpack x)))))
|
|
(:macro rm-indent ( (x(:c-li0-eq _ :atm-to-str)) )
|
|
(':atm-to-str
|
|
(':rm-indent
|
|
(':rm-first
|
|
(':unpack x)))))
|
|
(:macro rm-indent ( (x(:c-li0-eq _ :dict-key)) )
|
|
(':dict-key
|
|
(':rm-indent
|
|
(':rm-first
|
|
(':unpack x)))))
|
|
|
|
(:macro rm-indent ( (x(:c-li0-eq _ :indent)) )
|
|
(':rm-first
|
|
(':unpack x)))
|
|
|
|
(:macro rm-indent-each ( x )
|
|
(':rm-indent x))
|
|
(:macro rm-indent-each ( x .. tl )
|
|
(':rm-indent x)
|
|
(':rm-indent-each tl))
|
|
|
|
(:macro cfg ()
|
|
(':ocfg))
|
|
(:macro cfg ( x )
|
|
(':ocfg
|
|
(':rm-indent x)))
|
|
(:macro cfg ( hd .. tl )
|
|
(':ocfg
|
|
(':rm-indent hd)
|
|
(':rm-indent-each tl)))
|