From 422e7cfc8bb601ae1f24422d5fe1325ee72de82a Mon Sep 17 00:00:00 2001 Message-Id: <422e7cfc8bb601ae1f24422d5fe1325ee72de82a.1714868228.git.mdw@distorted.org.uk> From: Mark Wooding Date: Wed, 30 Apr 2014 16:08:13 +0100 Subject: [PATCH] zone.lisp: Export `tinydns-output', because it looks handy. Organization: Straylight/Edgeware From: Mark Wooding Extensions adding new record types might want this. --- zone.lisp | 1 + 1 file changed, 1 insertion(+) diff --git a/zone.lisp b/zone.lisp index f4f2367..e686322 100644 --- a/zone.lisp +++ b/zone.lisp @@ -1342,6 +1342,7 @@ (defmethod zone-write-record ((format (eql :bind)) (type (eql :txt)) zr) ;;;-------------------------------------------------------------------------- ;;; tinydns-data output format. +(export 'tinydns-output) (defun tinydns-output (code &rest fields) (format *zone-output-stream* "~C~{~@[~A~]~^:~}~%" code fields)) -- [mdw]