anchor.diff:                                         &rest initargs &key &allow-other-keys)
     (declare (ignore initargs))
     (setf (server-process instance)
  +        #+(and lispworks win32)
  +        (comm:start-udp-server :process-name (format nil "SNMP Server at ~A:~D"
  +                                                     (hbo-to-dotted-quad
  +                                                      (server-address instance))
  +                                                     (server-port instance))
  +                               :function (server-function instance)
  +                               :arguments (list instance)
  +                               :address (server-address instance)
  +                               :service (server-port instance))
  +        #-(and lispworks win32)
           (spawn-thread
   	 (format nil "SNMP Server at ~A:~D"
                    (hbo-to-dotted-quad (server-address instance))
  
positive.code: (defun snmp-server-function (input server)
    "Main function in UDP loop"
    (declare (type array input)
             (type snmp-server))
    (let ((*server* server))
      (let ((output (process-message (ber-decode input))))
        (when output
  
negative.code: 
  (defun disable-snmp-service ()
    (when *default-snmp-server*
      #+(and lispworks win32)
      (comm:stop-udp-server (server-process *default-snmp-server*) :wait t)
      #-(and lispworks win32)
      (kill-thread
       (server-process *default-snmp-server*))
      (setf *default-snmp-server* nil)))
  