anchor.diff:  	    
   	    ;; funcall the handler to get the result 
   	    (let ((arg (handler-case (read-xtype #'arg-reader input-stream)
  -			 (rpc-auth-error (e)
  -			   (frpc-log :trace "Handler signalled an auth error")
  -			   (write-rpc-response output-stream
  -					       :reject :auth-error
  -					       :id id
  -					       :auth-stat (or (auth-error-stat e) :auth-tooweak))
  -			   (return-from process-rpc-call))
   			 (error (e)
   			   (frpc-log :trace "Failed to read argument: ~A" e)
   			   (write-rpc-response output-stream 
  
positive.code: 			      (unless (zerop (length response-buffer))
  				(write-uint32 (usocket:socket-stream socket)
  					      (logior #x80000000 (length response-buffer)))
  				(write-sequence response-buffer (usocket:socket-stream socket))))))
  		      (end-of-file ()
  			(frpc-log :info "Connection closed by remote host")
  			(setf connections (remove socket connections :key #'rpc-connection-conn)))
  
negative.code: 			   (return-from process-rpc-call)))))
  	      
  	      (let ((res (handler-case (with-caller-binded (host port protocol auth) (funcall handler arg))
                         (rpc-auth-error (e)
                           (frpc-log :trace "Handler signalled an auth error")
                           (write-rpc-response output-stream
                                               :reject :auth-error
                                               :id id
                                               :auth-stat (or (auth-error-stat e) :auth-tooweak))
                           (return-from process-rpc-call))
  			   (error (e)
  			     (frpc-log :trace "Failed to invoke handler: ~A" e)
  			     ;; be silent if the handler errors, this allows us to 
  