X-Git-Url: https://git.hcoop.net/clinton/lisp-on-lines.git/blobdiff_plain/6963098fa7926e13ce221b8c0a3886f9f9984ac1..HEAD:/src/ucw/standard-components.lisp

diff --git a/src/ucw/standard-components.lisp b/src/ucw/standard-components.lisp
index 3509a8a..62c6fc6 100644
--- a/src/ucw/standard-components.lisp
+++ b/src/ucw/standard-components.lisp
@@ -4,7 +4,7 @@
   ()
   (: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))
 
@@ -44,12 +44,6 @@
 		     (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 
@@ -63,6 +57,10 @@
 				       (gethash object lol::*invalid-objects*)))))))
        (call-next-method))))
 
+(defclass described-component-class (described-class standard-component-class)
+  ())
+
+
 
 
 
@@ -70,8 +68,6 @@
 
 
 
-(defclass described-component-class (described-class standard-component-class )
-  ())