chickadee » tinyclos » define-class*

This macro returns a new anonymous class defined using syntax similar to define-class. As in define-class the superclass and slotname lists are not quoted.

(let ((CLASS (define-class* (SUPER) (SLOT1 SLOT2) METACLASS))) ...)

is equivalent to

(let ((CLASS (make METACLASS (list SUPER) (list 'SLOT1 'SLOT2)))) ...)

and

(let ((CLASS (define-class* () (SLOT1 SLOT2)))) ...)

is equivalent to

(let ((CLASS (make <class> (list <object>) (list 'SLOT1 'SLOT2)))) ...)