Changeset 67 for branches/home/psmith/restructure/src/statemachine/state-machine.lisp

Timestamp:

02/04/07 20:53:04 (18 years ago)

Author:

psmith

Message:

client side large packet OK

File:

• branches/home/psmith/restructure/src/statemachine/state-machine.lisp (modified) (1 diff)

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

@@ -72 +72 @@
       (handler-case
           (write-bytes outgoing-packet foreign-write-buffer)
-        (buffer-too-small-error (e) 
+        (buffer-too-small-error (write-error1) 
           (if (recommend-buffer-size sm :write (get-packet-size outgoing-packet))
-              (write-bytes outgoing-packet foreign-write-buffer)
+              (handler-case
+                  (write-bytes outgoing-packet foreign-write-buffer)
+                (buffer-too-small-error (write-error1) (format t "Failed to write packet after resize (something already in write buffer?, dropping packet ~A~% out buffer:~%~A~%" outgoing-packet foreign-write-buffer)))
               (format t "Failed to resize io buffer, dropping packet: ~A~%" outgoing-packet))))))))