+ (let ((type-predicate #+openmcl (slot-value esd 'ccl::type-predicate)))
+
+ (change-class esd 'view-class-effective-slot-definition
+ #+allegro :name
+ #+allegro (slot-definition-name dsd))
+ #+openmcl (setf (slot-value esd 'ccl::type-predicate)
+ type-predicate))