From eaf8cd9c6ebccee55217a2dce7b5b213ace91148 Mon Sep 17 00:00:00 2001
From: drewc <drewc@tech.coop>
Date: Wed, 7 Jan 2009 18:24:30 -0800
Subject: [PATCH] Add context stuff, but don't use it.

Ignore-this: dad1490c623bf484702f61e4e1b779ea

darcs-hash:20090108022430-39164-9a4b5baf656f7625551a256da0c0cbf03a1664d4.gz
---
 src/ucw/contextl-components.lisp | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 src/ucw/contextl-components.lisp

diff --git a/src/ucw/contextl-components.lisp b/src/ucw/contextl-components.lisp
new file mode 100644
index 0000000..80431c3
--- /dev/null
+++ b/src/ucw/contextl-components.lisp
@@ -0,0 +1,16 @@
+(in-package :lisp-on-lines-ucw)
+
+#+nil (defclass contextl-session-frame (ucw-core::standard-session-frame)
+  ())
+
+#+nil(defmethod ucw-core::register-callback-in-frame ((frame contextl-session-frame) callback &key &allow-other-keys)
+  (let ((lambda (ucw::callback-lambda callback)))
+    (let ((context (contextl:current-layer-context)))
+      (setf (ucw::callback-lambda callback) 
+	    (lambda (arg)
+	      (contextl:funcall-with-layer-context context lambda arg)))
+      (call-next-method))))
+
+#+nil(setf ucw-core::*session-frame-class* 'contextl-session-frame)
+
+  
-- 
2.20.1