X-Git-Url: http://git.pond.sub.org/?p=eow;a=blobdiff_plain;f=web.lisp;h=093769224ec938c3d91b3669e6250be4ec0959fc;hp=40b74066ca506a21ff2c3e9fe1617c6bdf8e9ae8;hb=bbb4cc9f46ce5736c875623b542db5eddc58d773;hpb=bf4c8fd00a49cef4ce907a341722347e640ff83b

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