2 s/^@deffn *{[^}]*} *\([^[:blank:]]*\).*/(setq items (list (list "deffn" "\1")))/
3 s/^@deffn *[^[:blank:]][^[:blank:]]* *\([^[:blank:]]*\).*/(setq items (list (list "deffn" "\1")))/
4 s/^@defvr *{[^}]*} *\([^[:blank:]]*\).*/(setq items (list (list "defvr" "\1")))/
5 s/^@defvr *[^[:blank:]][^[:blank:]]* *\([^[:blank:]]*\).*/(setq items (list (list "defvr" "\1")))/
6 s/^@deffnx *{[^}]*} *\([^[:blank:]]*\).*/(if (not (member (list "deffn" "\1") items :test #'equal)) (nconc items (list (list "deffn" "\1"))))/
7 s/^@deffnx *[^[:blank:]][^[:blank:]]* *\([^[:blank:]]*\).*/(if (not (member (list "deffn" "\1") items :test #'equal)) (nconc items (list (list "deffn" "\1"))))/
8 s/^@defvrx *{[^}]*} *\([^[:blank:]]*\).*/(if (not (member (list "defvr" "\1") items :test #'equal)) (nconc items (list (list "defvr" "\1"))))/
9 s/^@defvrx *[^[:blank:]][^[:blank:]]* *\([^[:blank:]]*\).*/(if (not (member (list "defvr" "\1") items :test #'equal)) (nconc items (list (list "defvr" "\1"))))/
12 s/^@node *\([^,]*\).*/(setq items (list (list "node" "\1")))/
15 s/@category{\([^}]*\)}\s*/(setf (gethash "\1" *categories*) (append (gethash "\1" *categories*) (foo items)))/g