From d180e4a8771820af6aecfc5278a8b84ae2afbcac Mon Sep 17 00:00:00 2001 From: Mark Wooding Date: Tue, 19 Sep 2017 18:13:06 +0100 Subject: [PATCH] zone.lisp: Don't try to take the `car' of something we know isn't a list. --- zone.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 -- 2.11.0