普通の関数をジェネリックファンクションに

普通の関数をジェネリックファンクションにする。

(shadow 'length)
(defmethod length (o)
 (cl:length o))
(defmethod length ((o symbol))
 (length (symbol-name o)))