Is there an easy way to revert an entire P4 changelist?

Let's say I checked in a changelist (in Perforce) with lots of files and I'd like to revert the entire changelist. Is there an easy way to "revert" the entire changelist in one fell swoop?

Currently I do something like this for each file in the changelist:

• p4 sync //path/to/file#n (where "n" is the previous version of the file)
• cp file file#n
• p4 sync //path/to/file
• p4 edit //path/to/file
• cp file#n file
• rm file#n

As you can imagine, this is quite cumbersome for a large changelist.