dynamic class creation

[blanchon@imag.fr (herve Blanchon)]

hello,

My programm have to treat information provided by an orther one. I have to
built an interface between the data I recieve with ACL and the data I want
to treat.

I receive a plist : (property "NAME")

For each property I want to build a class named NAME-class

A first I built this macro :

(defmacro create-l-class (class-name lexical-unit)
  `(defclass ,class-name (l-tree-class)
          ((LexicalUnit :initform ,lexical-unit))))

This work well if I call (create-l-class NAME-class "NAME")

But I have to produce the symbol NAME-class from "NAME" and also to give
the value of the lexical-unit parameter.

I don't know how this can been done.

I think every information about building dynamic class can be of great
interest.

Tanks in advance for your precious answer.

---
Herve Blanchon
GETA (Groupe d'Etude pour la Traduction Automatique)
BP 53X, 38041 GRENOBLE CEDEX, FRANCE
tel 76 51 43 69
blanchon@imag.fr