zone.lisp: Don't try to take the `car' of something we know isn't a list.

diff --git a/zone.lisp b/zone.lisp
index 9e525690031b24c7355855441c91a3a85b872269..6d6dce900e6ca64ae699be64285921bdce539b69 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -497,7 +497,7 @@ (defun zone-process-records (rec ttl func)
                                      :ttl ttl :records (cdr r))
                                     sub)))
                         (t
                                      :ttl ttl :records (cdr r))
                                     sub)))
                         (t

-                         (error "Unexpected record form ~A" (car r))))))))
+                         (error "Unexpected record form ~A" r)))))))

 
           (process (rec dom ttl)
             ;; Recursirvely process the record list REC, with a list DOM of
 
           (process (rec dom ttl)
             ;; Recursirvely process the record list REC, with a list DOM of