(error "metaclass ~A class slot ~A must have a value" (quote ,metaclass) name))
(list name `',value))
#+(or allegro sbcl cmu scl)
(error "metaclass ~A class slot ~A must have a value" (quote ,metaclass) name))
(list name `',value))
#+(or allegro sbcl cmu scl)