-(;; Define the STRUCTURE-OBJECT class as a subclass of
- ;; INSTANCE. This has to be handled early because the design of the
- ;; DEFSTRUCT system, dating back to pre-1999 CMU CL, requires that
- ;; STRUCTURE-OBJECT be the first DEFSTRUCT executed.
- ;;
- ;; (The #|DEF|# here is to help find this definition with lexical search.)
- (#|def|# (structure-object (:alternate-metaclass sb!kernel:instance)
- (:copier nil))
- ;; (There are no slots.)
- )
-
- ;; The target ALIEN-VALUE class must be defined early in the cross-compiler