X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/ec2fff38d12f7e6ab1070d131cbac8764850f8ea..d180e4a8771820af6aecfc5278a8b84ae2afbcac:/zone.lisp

diff --git a/zone.lisp b/zone.lisp
index 9e52569..6d6dce9 100644
--- a/zone.lisp
+++ b/zone.lisp
@@ -497,7 +497,7 @@ (defun zone-process-records (rec ttl func)
 				      :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