-
-(defclass sql-esd
- #+allegro (mop::standard-effective-slot-definition)
- #+lispworks (clos:standard-effective-slot-definition)
- ((ho-type :initarg :subobject :initform nil :accessor esd-ho-type)
+(defclass hyperobject-esd (#+allegro mop::standard-effective-slot-definition
+ #+lispworks clos:standard-effective-slot-definition
+ #+sbcl sb-pcl::standard-effective-slot-definition
+ #+(or scl cmucl) pcl::standard-effective-slot-definition
+ )
+ ((ho-type :initarg :ho-type :initform nil :accessor esd-ho-type)