Export portions of `lol-ucw'

[clinton/lisp-on-lines.git] / src / ucw / contextl-components.lisp

diff --git a/src/ucw/contextl-components.lisp b/src/ucw/contextl-components.lisp
index b948d38..7d90db3 100644 (file)
--- a/src/ucw/contextl-components.lisp
+++ b/src/ucw/contextl-components.lisp
@@ -7,8 +7,6 @@
         (with-dynamic-environment (,env)
           ,@body)))))
 
-(export '(dlambda) :lisp-on-lines-ucw)
-
 (defclass contextl-application (standard-application) 
   ()
   (:default-initargs 
@@ -36,7 +34,6 @@
   (with-dynamic-environment ((action-dynamic-environment action))
     (call-next-method)))
 
-
 (defclass contextl-component (standard-component) 
   ((component-dynamic-environment :accessor component-dynamic-environment
                                  :initform nil))
@@ -50,7 +47,7 @@
              (call-next-method))))
 
 (defmethod/cc call-component :before ((from t) (to contextl-component))
- (setf (component-dynamic-environment to) (capture-dynamic-environment)))
+  (setf (component-dynamic-environment to) (capture-dynamic-environment)))