(send-message-one c message)
(set-new-mode c mode))))))
+(defun read-no-eval (stream)
+ (let ((*read-eval* nil))
+ (read stream)))
+
(defmethod handle-prompt ((m play-mode) message)
(let* ((c (connection m)))
(with-input-from-string (s message)
- (let* ((minutes (read s)) ;;FIXME DANGEROUS
- (btus (read s)))
+ (let* ((minutes (read-no-eval s))
+ (btus (read-no-eval s)))
(empire-web:prompt (session c)
(format nil "[~a,~a]: " minutes btus))))
(send-next-line c)))