(REVERSE-OF-REVERSE-WHEN-STRINGP
 (12 2 (:REWRITE DEFAULT-COERCE-3))
 (5 3 (:REWRITE CONSP-OF-COERCE))
 (4 1 (:REWRITE CONSP-OF-REVAPPEND))
 (3 3 (:REWRITE DEFAULT-COERCE-2))
 (1 1 (:REWRITE DEFAULT-COERCE-1))
 )
(METHOD-DESIGNATOR-STRINGP)
(EXTRACT-METHOD-DESCRIPTOR)
(EXTRACT-METHOD-NAME)
(EXTRACT-METHOD-CLASS)
(STRINGP-OF-EXTRACT-METHOD-CLASS)
(EXTRACT-PACKAGE-NAME)
