Method-exists-p?

[Shannon V Spires <svspire@somnet.sandia.gov>]

What's the best way to write method-exists-p so I can transport
it to other Common Lisps? I use it a lot in MCL and want to
make my code run on Symbolics and Franz systems, which don't
define method-exists-p. Can someone show some code to do the
equivalent thing written in transportable Common Lisp? It's
okay if it is slower or does more consing than the MCL version--
it just needs to work. Although faster is better, of course.
Thanks.
-Shannon Spires
svspire@sandia.gov