anchor.diff:        (setf onoff (lisp->c-bool new-onoff)
               linger new-linger))
       (%setsockopt fd level option optval size-of-linger)
  -    (values)))
  +    (values new-onoff new-linger)))
   
   ;;; TIMEVAL
   
  
positive.code:   (with-foreign-object (optval :int)
      (setf (mem-ref optval :int) (lisp->c-bool value))
      (%setsockopt fd level option optval size-of-int)
      (values)))
  
  ;;; INT
  
  
negative.code:       (with-foreign-slots ((sec usec) optval timeval)
          (values 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  new-sec
              usec new-usec))
      (%setsockopt fd level option optval size-of-timeval)
      (values new-sec new-usec)))
  
  ;;; IFREQ-NAME
  
  