7:01:29beachSo MAKE-INSTANCE calls ALLOCATE-INSTANCE and then INITIALIZE-INSTANCE which then calls SHARED-INITIALIZE. Now SHARED-INITIALIZE calls CLASS-OF of the instance and then uses SLOT-BOUND-USING-CLASS and (SETF SLOT-VALUE-USING-CLASS) to get set the slot values. Those two functions call SLOT-DEFINITION-LOCATION and then access the slot directly.
7:01:30beachSo it makes sense that all these functions should live in the same environment as the accessors for the class being instantiated and for the slot metaobjects of that class.
7:02:00beachAnd NOT in the same environment as the accessors for the INSTANCE being created.