|#1 2011-07-22 09:39|
|#2 2011-07-22 20:06|
This is my lisp for doing that, which I use a lot. It might need polish to work for you and it's probably no example of good programming, but there it is.
(DEFUN c:CAT (/ oldl oldlp ss n p1 a b c p q p2 p3 p4 r s)