(with-dynamic-environment (,env)
,@body)))))
-(export '(dlambda) :lisp-on-lines-ucw)
-
(defclass contextl-application (standard-application)
()
(:default-initargs
(with-dynamic-environment ((action-dynamic-environment action))
(call-next-method)))
-
(defclass contextl-component (standard-component)
((component-dynamic-environment :accessor component-dynamic-environment
:initform nil))
(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)))