- (warn "~A ~A ~A" attributes type object)
- (remf args :type )
- (remf args :attributes)
- (apply #'make-presentation object (cddr (%make-view object type attributes args))))
+ (remf args :type)
+ ;(warn "~A ~A" args `(:type ,type :initargs ,@args))
+ (apply #'make-presentation object `(:type ,type ,@ (when args
+ `(:initargs ,args)))))