+(defzoneparse :net (name data rec)
+ ":net (NETWORK*)"
+ (dolist (net (listify data))
+ (let ((n (net-get-as-ipnet net)))
+ (rec :name (zone-parse-host "net" name)
+ :type :a
+ :data (ipnet-net n))
+ (rec :name (zone-parse-host "mask" name)
+ :type :a
+ :data (ipnet-mask n))
+ (rec :name (zone-parse-host "broadcast" name)
+ :type :a
+ :data (ipnet-broadcast n)))))