Changeset 74 for branches/home/psmith/restructure/src/protocol/yarpc

Timestamp:

02/06/07 03:43:57 (18 years ago)

Author:

psmith

Message:

Changes for server close

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 ¶

@@ -103 +103 @@
 
 (defun execute-call (call-string)
+  (handler-case
       (let* ((rpc-call-list (read-from-string call-string ))
              (fn (member (symbol-function (first rpc-call-list)) *remote-fns* )))
@@ -108 +109 @@
         (if fn
             (apply (first rpc-call-list) (rest rpc-call-list))
-            (error 'authorization-error))))
+            (error 'authorization-error)))
+    (reader-error (re) (format-log t "yarpc-state-machine:execute-call - reader error on call-string ~A ~%" re))))
 
 ;;end move TODO