小编oty*_*tyn的帖子

最近发现了一个活跃的weblocks分支,我想将它与ORM库mito结合起来.

Weblocks定义了一个宏defwidget,它实际上defclass就像这样包装:

(defclass my-class ()
  ((slot))
  (:metaclass weblocks/widgets/mop:widgets-class))

同时美图的工作原理如下:

(defclass my-class ()
  ((...))
  (:metaclass mito:dao-table-class))

我怎样才能使以下工作？

(defclass my-class ()
  (...))

(defvar *obj* (make-instance 'my-class))

(render *obj*) ;render from weblocks

(save-dao *obj*) ;save-dao from mito

(my-method *obj*)

我尝试过继承,但以某种不同的方式失败了.我在短时间内只使用过CLOS.因此,我无法测量频谱的位置

"我很蠢<=====>这是不可能的"

我站着.任何帮助,将不胜感激.