Author: psmith Date: Sat Jan 6 01:08:44 2007 New Revision: 29 Modified: branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp Log: yarpc: allow return types other than string Modified: branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp ============================================================================== --- branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp (original) +++ branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp Sat Jan 6 01:08:44 2007 @@ -49,7 +49,7 @@ (with-slots (foreign-read-buffer foreign-write-buffer) sm (let ((fn-result (execute-call (sb-ext:octets-to-string (get-string foreign-read-buffer) :external-format :ascii)))) (format t "process-read - function result: ~A~%" fn-result) - (nio-buffer:bytebuffer-write-string foreign-write-buffer fn-result 0 :utf-8) + (nio-buffer:bytebuffer-write-string foreign-write-buffer (write-to-string fn-result) 0 :utf-8) (close-sm sm)))) @@ -58,6 +58,8 @@ (rpc-call-list (read-from-string call-string ))) (apply (first rpc-call-list) (rest rpc-call-list)))) +(defun test-rpc-list() + (list 3 "as" 's (code-char #x2211))) -(defun test-rpc(a b c) +(defun test-rpc-string(a b c) (format nil "response - ~A ~A ~A ~A~%" a b c (code-char #x2211)))