(defmethod make-presentation ((object t) &key (type :viewer) (initargs nil))
-
+ ;(warn "Initargs : ~A" initargs)
(let* ((p (make-instance 'mewa-object-presentation))
(a (progn (setf (slot-value p 'instance) object)
type))
(plist-union initargs (cddr a)))))
-
(setf (slot-value i 'instance) object)
(initialize-slots i)
(setf (slot-value i 'initializedp) t)