anchor.diff:  (defun disable-snmp-service ()
     "Kill server thread and clear variable"
     (when *default-snmp-server*
  -    #+snmp-features:lispworks-udp
  -    (comm+:stop-udp-server (server-process *default-snmp-server*) :wait t)
  -    #+snmp-features:usocket
       (portable-threads:kill-thread (server-process *default-snmp-server*))
       ;; clear variable
       (setf *default-snmp-server* nil)))
  
positive.code:                                                                   (server-port instance)
                                                                    (server-function instance)
                                                                    (list instance))
                                             #+scl (thread:thread-exit)))
          #+(and snmp-features:usocket snmp-features:bordeaux-threads)
          (error "not implemented")))
  
  (defun enable-snmp-service (&optional (port *default-snmp-server-port*))
    (if (null *default-snmp-server*)
  
negative.code:                                        &rest initargs &key &allow-other-keys)
    (declare (ignore initargs))
    (setf (server-process instance)
          (portable-threads:spawn-thread (format nil "SNMP Server at ~A:~D"
                                                 (server-address instance)
                                                 (server-port instance))
  