+(defvar *update-queue* (locked-queue:create))
+
+(defun update ()
+ "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))
+