[nio-cvs] r29 - branches/home/psmith/restructure/src/protocol/yarpc

[psmith at common-lisp.net]

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)))