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 9e52569..6d6dce9 100644 (file)
--- a/zone.lisp
+++ b/zone.lisp
@@ -497,7 +497,7 @@
                                      :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