(defmacro define-cb-methods (name return-type (&rest args))
(flet ((make-name (control-string) (intern (format nil control-string (symbol-name name)) (symbol-package name))))
(defmacro define-cb-methods (name return-type (&rest args))
(flet ((make-name (control-string) (intern (format nil control-string (symbol-name name)) (symbol-package name))))