#!/bin/sed -f

/^(require 'eieio)/a \
(require 'cl-generic)

/^(defmethod.*[^ ] *:[sS][tT][aA][tT][iI][cC] *$/{
   s/^(defmethod/(cl-defmethod/
   s/ *:[sS][tT][aA][tT][iI][cC] *//
   n
   s/^\([ 	]*(([^ ][^ ]* *\)\([^ ][^ ]*\)/\1(subclass \2)/
}
s/^(\(defmethod.*[^ ] *\):[sS][tT][aA][tT][iI][cC] *\((([^ ][^ ]* *\)\([^ ][^ ]*\)/(cl-\1\2(subclass \3)/
s/^(\(defmethod.*[^ ] *\):BEFORE/(cl-\1:before/
s/^(\(defmethod.*[^ ] *\):AFTER/(cl-\1:after/
s/^(defmethod/(cl-defmethod/

s/^(defgeneric/(cl-defgeneric/
s/(call-next-method/(cl-call-next-method/
s/(next-method-p/(cl-next-method-p/