zone.lisp: Sink `zone-text-name' until after `zone' structure is defined.

[zone] / zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 8eef825222fd7715c7889533710abcc84d536b50..9e525690031b24c7355855441c91a3a85b872269 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -237,10 +237,6 @@ (defstruct (soa (:predicate soap))
   min-ttl
   serial)
 
   min-ttl
   serial)
 

-(export 'zone-text-name)
-(defun zone-text-name (zone)
-  (princ-to-string (zone-name zone)))
-

 (export 'mx)
 (defstruct (mx (:predicate mxp))
   "Mail-exchange record information."
 (export 'mx)
 (defstruct (mx (:predicate mxp))
   "Mail-exchange record information."


@@ -255,6 +251,10 @@ (defstruct (zone (:predicate zonep))
   name
   records)
 
   name
   records)
 

+(export 'zone-text-name)
+(defun zone-text-name (zone)
+  (princ-to-string (zone-name zone)))
+

 ;;;--------------------------------------------------------------------------
 ;;; Zone defaults.  It is intended that scripts override these.
 
 ;;;--------------------------------------------------------------------------
 ;;; Zone defaults.  It is intended that scripts override these.