(when (neq supplied-supers unsupplied)
(list :direct-superclasses (mapcar #'fix-super supplied-supers)))
(when (neq supplied-slots unsupplied)
(when (neq supplied-supers unsupplied)
(list :direct-superclasses (mapcar #'fix-super supplied-supers)))
(when (neq supplied-slots unsupplied)