"Push a javascript update fragment to the client."
(locked-queue:enqueue *update-queue* string))
+(defun prompt (minutes btus)
+ (send (format nil "prompt(~a,~a);~%" minutes btus)))
+
(defun dispatch (request)
(let ((script-name (script-name request)))
(cond