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-string (ifname interface)
          (nix:memcpy name ifname (min (length interface) (1- ifnamsiz)))))
      (%setsockopt fd level option optval size-of-ifreq)
      (values interface)))
  
  ;;;; Option Definitions
  