anchor.diff:      (%%make-local-stream-passive-socket family ef local-filename reuse-address backlog)))
   
   (define-compiler-macro %make-local-stream-passive-socket (&whole form args family ef)
  -  (with-guard-again-non-list-args-and-destructuring-bind-errors
  +  (with-guard-against-non-list-args-and-destructuring-bind-errors
         form args
       (destructuring-bind (&key local-filename (reuse-address t)
                                 (backlog *default-backlog-size*))
  
positive.code:     (%%make-local-datagram-socket family ef local-filename remote-filename)))
  
  (define-compiler-macro %make-local-datagram-socket (&whole form args family ef)
    (with-guard-again-non-list-args-and-destructuring-bind-errors
        form args
      (destructuring-bind (&key local-filename remote-filename)
          (cdr args)
  
negative.code:      (:ipv4 (create-socket :ipv4 ,@args))
       (:ipv6 (create-socket :ipv6 ,@args))))
  
  (defmacro with-guard-against-non-list-args-and-destructuring-bind-errors
      (form args &body body)
    `(if (listp ,args)
         (handler-case (progn ,@body)
  