From 68d27225b47bf85be43a8a33e619b61486e55ca2 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Thu, 30 Nov 2023 19:03:48 -0800
Subject: More name refinement

---
 terrafirma.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'terrafirma.lisp')

diff --git a/terrafirma.lisp b/terrafirma.lisp
index e5a3ec5..212f7cd 100644
--- a/terrafirma.lisp
+++ b/terrafirma.lisp
@@ -5,7 +5,7 @@
   (:export
    #:validation-error                   ; Condition
    #:validate                           ; Macrolet Symbol
-   #:defvalidator                       ; Macro
+   #:define-valid                       ; Macro
    ))
 
 (in-package #:terrafirma)
@@ -48,7 +48,7 @@
 (defvar *type*)
 (defvar *instance*)
 
-(defmacro defvalidator (type (var &key name) &body body)
+(defmacro define-valid (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