From cd6ac8930db6ad3b866b4b8398a25b49c3767a5b Mon Sep 17 00:00:00 2001
From: Aryadev Chavali <aryadev@aryadevchavali.com>
Date: Wed, 9 Jul 2025 21:31:43 +0100
Subject: Overhaul

Loads of changes, some which I wasn't sure what I was on when doing
them
---
 src/model.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/model.lisp')

diff --git a/src/model.lisp b/src/model.lisp
index 6a3cbaf..f60ee98 100644
--- a/src/model.lisp
+++ b/src/model.lisp
@@ -32,9 +32,9 @@
 
 (deftype int-card () `(integer 0 51))
 
-(deftype cardset () `(and list (satisfies cardsetp)))
+(deftype cardset () `(and list (satisfies cardset-p)))
 
-(fn cardsetp (lst) (-> (list) boolean)
+(fn cardset-p (lst) (-> (list) boolean)
   (every #'card-p lst))
 
 (fn int->suit (n) (-> (fixnum) suit)
-- 
cgit v1.2.3-13-gbd6f