anchor.diff:  
   ;;; Local Stream Passive Socket creation
   
  +(defun %%init-local-stream-passive-socket (socket local-filename reuse-address backlog)
  +  (when local-filename
  +    (bind-address socket (ensure-address local-filename :family :local)
  +                  :reuse-address reuse-address)
  +    (listen-on socket :backlog backlog)))
  +
  +(declaim (inline %%make-local-stream-passive-socket))
   (defun %%make-local-stream-passive-socket (family ef local-filename reuse-address backlog)
  -  (with-close-on-error (socket (create-socket family :stream :passive ef))
  -    (when local-filename
  -      (bind-address socket (ensure-address local-filename :family :local)
  -                    :reuse-address reuse-address)
  -      (listen-on socket :backlog backlog))))
  +  (declare (ignore family))
  +  (with-close-on-error (socket (create-socket :local :stream :passive ef))
  +    (%%init-local-stream-passive-socket socket local-filename reuse-address backlog)))
   
   (defun %make-local-stream-passive-socket (args family ef)
     (destructuring-bind (&key local-filename (reuse-address t)
  
positive.code: 
  ;;; Local Stream Active Socket creation
  
  (defun %%make-local-stream-active-socket (family ef local-filename remote-filename
                                            input-buffer-size output-buffer-size)
    (with-close-on-error (socket (create-socket family :stream :active ef
                                                :input-buffer-size input-buffer-size
                                                :output-buffer-size output-buffer-size))
      (when local-filename
        (bind-address socket (ensure-address local-filename :family :local)))
      (when remote-filename
        (connect socket (ensure-address remote-filename :family :local)))))
  
  (defun %make-local-stream-active-socket (args family ef)
    (destructuring-bind (&key local-filename remote-filename
  
negative.code: If `FD' is an invalid socket descriptor and `ERRORP' is not NIL a condition subtype of POSIX-ERROR
  is signaled, otherwise two values are returned: NIL and the specific condition object."
    (flet ((%make-socket-stream ()
             (macrolet ((%create-socket (family)
                          `(create-socket ,family :stream :active external-format :fd fd
                                          :input-buffer-size input-buffer-size
                                          :output-buffer-size output-buffer-size)))
               (switch ((get-address-family fd) :test #'=)
                 (af-inet  (%create-socket :ipv4))
                 (af-inet6 (%create-socket :ipv6))
                 (af-local (%create-socket :local))))))
      (if errorp
          (%make-socket-stream)
          (ignore-some-conditions (posix-error)
  