Add parenscript dependency

[eow] / empire.lisp

diff --git a/empire.lisp b/empire.lisp
index 4797ac71e4817e424e26ad250c26ffab57d82ad5..5d1b950b5cfa6a81fb24066239f3de0438f7bb72 100644 (file)
--- a/empire.lisp
+++ b/empire.lisp
@@ -139,15 +139,17 @@ this stream.")
 (defmethod handle-data ((m play-mode) message)
   (let* ((c (connection m))
         (log (logging-stream c)))
-    (format log "handle-data ~a~%" message)))
+    (format log "handle-data ~a~%" message)
+    (empire-web:data message)))
 
 (defmethod handle-prompt ((m play-mode) message)
   (let* ((c (connection m))
         (log (logging-stream c)))
     (with-input-from-string (s message)
-      (let* ((minutes (read s))
+      (let* ((minutes (read s)) ;;FIXME DANGEROUS
             (btus (read s)))
-       (format log "[~a:~a]: ~%" minutes btus)))))
+       (format log "[~a:~a]: ~%" minutes btus)
+       (empire-web:prompt minutes btus)))))
 
 (defparameter *line-type-dispatch*
   (list `(,+C_DATA+ . handle-data)