From 6313c32898f155c44fff350aa18358be58483fd9 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Thu, 30 Nov 2023 18:57:27 -0800
Subject: rearrange arguments in defvalidator

---
 terrafirma.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'terrafirma.lisp')

diff --git a/terrafirma.lisp b/terrafirma.lisp
index b5ef90c..e5a3ec5 100644
--- a/terrafirma.lisp
+++ b/terrafirma.lisp
@@ -48,7 +48,7 @@
 (defvar *type*)
 (defvar *instance*)
 
-(defmacro defvalidator ((var type &key name) &body body)
+(defmacro defvalidator (type (var &key name) &body body)
   "Defines a validation function. If TYPE is a symbolic type identifier,
 then the defined function will have a name like VALID-<TYPE>-P.
 Otherwise a NAME must be provided. 
-- 
cgit v1.2.3