example.lisp

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Server
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun |validator1.manyTypesTest| (boolean string)
  (assert
   (and (or (null boolean) (eq boolean t))
	(stringp string)))
  (list boolean string))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Client
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun many-types-test ()
  (let* ((boolean (if (zerop (random 2)) t nil))
	 (string (random-string))
	 (result (xml-rpc-call (encode-xml-rpc-call :|validator1.manyTypesTest|
						    boolean
						    string))))
    (format t
	    "validator1.manyTypesTest(~s,~s)=~s~%"
	    boolean
	    string)
    (assert (equal boolean (elt result 1)))
    (assert (equal string (elt result 2)))))