(in-package "KPML")

;; Add this in somewhere to file...

(defvar *server-failure-string* "huh?")

(defmacro IRON-PLATED-XML-SAY (example)
  `(unwind-protect
       (multiple-value-bind
	(value error)
	(ignore-errors
	 (let ((*demo-mode* T)
	       (example-runner-flag T))
	   (declare (special example-funner-flag *demo-mode*))
	   (concatenate 'string
			"<utterance>"
			(html-say ,example)
			"</utterance>")))
	(progn
	  (if error
	      (progn
		(setf *serious-failure-count* (1+ *serious-failure-count*))
		(push ,example *serious-failures*)
		*server-failure-string*)
	    value)))))
