From: Mark Wooding Date: Wed, 30 Apr 2014 15:08:13 +0000 (+0100) Subject: zone.lisp: Export `tinydns-output', because it looks handy. X-Git-Url: https://git.distorted.org.uk/~mdw/zone/commitdiff_plain/422e7cfc8bb601ae1f24422d5fe1325ee72de82a zone.lisp: Export `tinydns-output', because it looks handy. Extensions adding new record types might want this. --- diff --git a/zone.lisp b/zone.lisp index f4f2367..e686322 100644 --- a/zone.lisp +++ b/zone.lisp @@ -1342,6 +1342,7 @@ $TTL ~2@*~D~2%" ;;;-------------------------------------------------------------------------- ;;; tinydns-data output format. +(export 'tinydns-output) (defun tinydns-output (code &rest fields) (format *zone-output-stream* "~C~{~@[~A~]~^:~}~%" code fields))