Extensions adding new record types might want this.
;;;--------------------------------------------------------------------------
;;; tinydns-data output format.
;;;--------------------------------------------------------------------------
;;; tinydns-data output format.
+(export 'tinydns-output)
(defun tinydns-output (code &rest fields)
(format *zone-output-stream* "~C~{~@[~A~]~^:~}~%" code fields))
(defun tinydns-output (code &rest fields)
(format *zone-output-stream* "~C~{~@[~A~]~^:~}~%" code fields))