+(defmethod bind-to-address :around ((address local-address))
+ (let ((ret (call-next-method)))
+ (when (typep ret 'sbcl-unix-socket)
+ (setf (slot-value ret 'unlink-name) (slot-value address 'path)))
+ ret))
+
+(defmethod connect-to-address :around ((remote local-address) &key local)
+ (let ((ret (call-next-method)))
+ (when (and (typep ret 'sbcl-unix-socket) (typep local 'local-address))
+ (setf (slot-value ret 'unlink-name) (slot-value local 'path)))
+ ret))
+