anchor.diff:        (with-foreign-slots ((sec usec) optval timeval)
           (values sec usec)))))
   
  -(define-socket-option-helper (:set :timeval) (fd level option %sec %usec)
  +(define-socket-option-helper (:set :timeval) (fd level option new-sec new-usec)
     (with-foreign-object (optval 'timeval)
       (with-foreign-slots ((sec usec) optval timeval)
  -      (setf sec  %sec
  -            usec %usec))
  +      (setf sec  new-sec
  +            usec new-usec))
       (%setsockopt fd level option optval size-of-timeval)
  -    (values)))
  +    (values new-sec new-usec)))
   
   ;;; IFREQ-NAME
   
  
positive.code:       (with-foreign-string (ifname interface)
          (nix:memcpy name ifname (min (length interface) (1- ifnamsiz)))))
      (%setsockopt fd level option optval size-of-ifreq)
      (values)))
  
  ;;;; Option Definitions
  
negative.code:       (setf onoff (lisp->c-bool new-onoff)
              linger new-linger))
      (%setsockopt fd level option optval size-of-linger)
      (values new-onoff new-linger)))
  
  ;;; TIMEVAL
  
  