Changeset 29 for branches/home/psmith/restructure/src/protocol

Timestamp:

01/06/07 06:08:44 (18 years ago)

Author:

psmith

Message:

yarpc: allow return types other than string

File:

• branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp (modified) (2 diffs)

branches/home/psmith/restructure/src/protocol/yarpc/yarpc-state-machine.lisp ¶

@@ -50 +50 @@
     (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))))
 
@@ -59 +59 @@
     (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)))