find-method & new pcl

[Rob Pettengill <rcp@sw.MCC.COM>]

I noticed that find-method is still not in PCL.  However
pcl::real-get-method is an appears to have exactly the functionality
of find-method.  If so should this be renamed or at least exported
under the name find-method?

<cl> (pcl::real-get-method (symbol-function 'pcl:print-object) ()
			   (mapcar #'pcl:find-class '(pcl::STANDARD-METHOD t))
			   nil)

#<Standard-Method PCL:PRINT-OBJECT (PCL::STANDARD-METHOD T) 17433551> 

;rob