Rotating Block Attributes Lisp

Here's a LISP routine I use all the time when I have a attributed block that has to be rotated. What happens is that the attribute rotates with it. To rotate the attribute back without rotating the block I use this LISP. I wish i could remember where I got, so I could credit the writer. Where ever you are... Thanks for the great LISP.