+(defmacro multiple-value-bindf (vars form &body body)
+ `(destructuring-bind ,vars
+ (multiple-value-funcall->list #',(car form) ,@(cdr form))
+ ,@body))
+
+(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))
+
+(defslot-presentation clsql-wall-time-slot-presentation (mewa-relation-slot-presentation)