+(defslot-presentation mewa-boolean-slot-presentation (boolean-slot-presentation)
+ ((slot-name :accessor slot-name :initarg :slot-name))
+ (:type-name mewa-boolean))
+
+(defslot-presentation mewa-string-slot-presentation (string-slot-presentation )
+
+ ((slot-name :accessor slot-name :initarg :slot-name))
+ (:type-name mewa-string))
+
+(defslot-presentation mewa-number-slot-presentation (number-slot-presentation)
+ ((slot-name :accessor slot-name :initarg :slot-name))
+ (:type-name mewa-number))
+
+(defslot-presentation mewa-integer-slot-presentation (integer-slot-presentation)
+ ((slot-name :accessor slot-name :initarg :slot-name))
+ (:type-name mewa-integer))
+
+(defslot-presentation mewa-currency-slot-presentation (currency-slot-presentation)
+
+ ((slot-name :accessor slot-name :initarg :slot-name))
+ (:type-name mewa-currency))
+