+(defclass xdump-mode (play-mode)
+ ((table-buffer
+ :initform nil
+ :accessor table-buffer
+ :documentation "Intermediate storage for incomplete table dump.")))
+
+(defmethod handle-data ((m xdump-mode) message)
+ (with-slots (connection table-buffer) m
+ (if (char= #\/ (aref message 0))
+ (progn
+ (format t "table: ~a~%" table-buffer)
+ (set-new-mode m 'play-mode)))
+ ;XXX check table size
+ (with-input-from-string (s (format nil "(~a)" message))
+ (setf table-buffer (cons (read s) table-buffer)))))
+