(defun find-presentation-attributes (model)
(remove nil (mapcar #'(lambda (att)
(when (keywordp (car att))
- att))
+ (copy-list att) ))
(cdr (find-class-attributes model)))))
(defmethod make-presentation ((object t) &key (type :viewer) (initargs nil))
+
(let* ((p (make-instance 'mewa-object-presentation))
+
(a (progn (setf (slot-value p 'instance) object)
(initialize-slots p)
(assoc type (find-all-attributes p))))
(symbol-name type)
type))
(plist-union initargs (cddr a)))))
+
+
(setf (slot-value i 'instance) object)
(initialize-slots i)
(setf (slot-value i 'initializedp) t)
(call-next-method)
(render-on res (slot-value self 'body)))
-(defmethod instance-is-stored-p ((instance clsql:standard-db-object))
- (slot-value instance 'clsql-sys::view-database))
-(defmethod instance-is-stored-p ((mewa mewa))
- (instance-is-stored-p (instance mewa)))
+
(defaction cancel-save-instance ((self mewa))
(cond