From bbb4cc9f46ce5736c875623b542db5eddc58d773 Mon Sep 17 00:00:00 2001
From: Gerd Flaig <gefla@gefla-mac-zrh>
Date: Sat, 29 Nov 2008 22:07:07 +0100
Subject: [PATCH] Add convience function 'send' to push javascript update
 fragments to client.

---
 package.lisp | 2 +-
 web.lisp     | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/package.lisp b/package.lisp
index c06705a..56ca854 100644
--- a/package.lisp
+++ b/package.lisp
@@ -16,5 +16,5 @@
     (:export :create :enqueue :dequeue))
   (defpackage :empire-web
     (:use :cl :hunchentoot)
-    (:export :start)))
+    (:export :start :send)))
 
diff --git a/web.lisp b/web.lisp
index 40b7406..0937692 100644
--- a/web.lisp
+++ b/web.lisp
@@ -36,6 +36,10 @@
   "Send stream of updates to client"
   (locked-queue:dequeue *update-queue*))
 
+(defun send (string)
+  "Push a javascript update fragment to the client."
+  (locked-queue:enqueue *update-queue* string))
+
 (defun dispatch (request)
   (let ((script-name (script-name request)))
     (cond
-- 
2.43.0