1 (in-package :lisp-on-lines-ucw
)
3 #+nil
(defclass contextl-session-frame
(ucw-core::standard-session-frame
)
6 #+nil
(defmethod ucw-core::register-callback-in-frame
((frame contextl-session-frame
) callback
&key
&allow-other-keys
)
7 (let ((lambda (ucw::callback-lambda callback
)))
8 (let ((context (contextl:current-layer-context
)))
9 (setf (ucw::callback-lambda callback
)
11 (contextl:funcall-with-layer-context context lambda arg
)))
14 #+nil
(setf ucw-core
::*session-frame-class
* 'contextl-session-frame
)