[snmp1-cvs] CVS snmp1

[jriise]

Update of /project/snmp1/cvsroot/snmp1
In directory clnet:/tmp/cvs-serv11366

Modified Files:
	snmp.lisp 
Log Message:
Arms and legs type bug fix


--- /project/snmp1/cvsroot/snmp1/snmp.lisp	2007/02/03 17:23:20	1.4
+++ /project/snmp1/cvsroot/snmp1/snmp.lisp	2007/02/03 20:17:16	1.5
@@ -156,15 +156,15 @@
 ;;     ))
 
 (defun udp-send-and-receive (host port timeout repetitions message)
-<<<<<<< HEAD/snmp.lisp
   "send one pqcket and receive one packet. Do timeouts and retries.
 This function is specific to sbcl"
-  (let ((socket (make-instance 'sb-bsd-sockets:inet-socket :protocol :udp :type :datagram))
-	result
-	(recvbuf (make-array 2000 :element-type '(unsigned-byte 8))))
-    (loop
-       repeat repetitions
-       do 
+  (handler-case 
+      (let ((socket (make-instance 'sb-bsd-sockets:inet-socket :protocol :udp :type :datagram))
+            result
+            (recvbuf (make-array 2000 :element-type '(unsigned-byte 8))))
+        (loop
+         repeat repetitions
+         do 
 	 (sb-bsd-sockets:socket-send socket message nil :address (list host port))
 	 (setf result 
 	       (handler-case
@@ -174,10 +174,9 @@
 		       (declare (ignore peer-addr))
 		       (subseq buf 0 len)))
 		 (timeout ()  #|(display :hei )|# nil)))
-       until result)
+         until result)
         (sb-BSD-SOCKETS:SOCKET-CLOSE socket)
-        result
-        )
+        result)
     (sb-bsd-sockets:socket-error ())))