-(in-package :mewa)
+(in-package :lisp-on-lines)
(defparameter *default-type* :ucw)
(setf (slot-value i 'initializedp) t)
i))
-(defmethod make-presentation ((list list) &key (type :listing) (initargs nil))
-
+(defmethod make-presentation ((list list) &key (type :listing) (initargs nil))
(let ((args (append
`(:type ,type)
`(:initargs
(defaction cancel-save-instance ((self mewa))
(cond
- ((instance-is-stored-p (instance self))
+ ((meta-model::persistentp (instance self))
(meta-model::update-instance-from-records (instance self))
(answer self))
(t (answer nil))))