eaf8cd9c |
1 | (in-package :lisp-on-lines-ucw) |
2 | |
3 | #+nil (defclass contextl-session-frame (ucw-core::standard-session-frame) |
4 | ()) |
5 | |
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) |
10 | (lambda (arg) |
11 | (contextl:funcall-with-layer-context context lambda arg))) |
12 | (call-next-method)))) |
13 | |
14 | #+nil(setf ucw-core::*session-frame-class* 'contextl-session-frame) |
15 | |
16 | |