()
(:default-initargs :action-class 'lisp-on-lines-action))
-(defclass lisp-on-lines-action (contextl-action)
+(defclass lisp-on-lines-action (action-with-isolation-support contextl-action )
()
(:metaclass closer-mop:funcallable-standard-class))
(list (find-class 'lisp-on-lines-component)))
initargs)))
-(defclass described-component-class (described-class standard-component-class )
- ())
-
-
-
-
(defmethod ucw-core:handle-action :wrap-around ((action lisp-on-lines-action) application session frame)
(let ((lol::*invalid-objects* (make-hash-table)))
(handler-bind ((lol::validation-condition
(gethash object lol::*invalid-objects*)))))))
(call-next-method))))
+(defclass described-component-class (described-class standard-component-class)
+ ())
+
+
-(defclass described-component-class (described-class standard-component-class )
- ())