From: Mark Wooding <mdw@distorted.org.uk>
Date: Tue, 19 Sep 2017 17:13:06 +0000 (+0100)
Subject: zone.lisp: Don't try to take the `car' of something we know isn't a list.
X-Git-Url: https://git.distorted.org.uk/~mdw/zone/commitdiff_plain/d180e4a8771820af6aecfc5278a8b84ae2afbcac

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
--- 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