Method Add-Direct-Subclass

Part of:

class standard-class
( add-direct-subclass < class > < subclass > )