| 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 | |