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
---
 packages.lisp | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

(limited to 'packages.lisp')

diff --git a/packages.lisp b/packages.lisp
index 1c5f889..70d01ee 100644
--- a/packages.lisp
+++ b/packages.lisp
@@ -22,7 +22,7 @@
   (:use :cl)
   (:export
    :--> :->> :-<>
-   :-> :fn
+   :-> :fn :call-rev
    :while :alist-val
    :$-> :$>> :$<>))
 
@@ -30,9 +30,8 @@
   (:nicknames :5d-lib.functions)
   (:use :cl :5d-lib.macros)
   (:export
-   :parse-integer* :sort*
-   :range :take :split
-   :rev-map
+   :parse-integer*
+   :range :split :rev-map
    :remove-at-indices))
 
 (defpackage cantedraw.model
@@ -40,7 +39,7 @@
   (:use :cl :5d-lib.macros :5d-lib.functions)
   (:export
    ;; Types
-   :int-card :rank :suit :cardset
+   :int-card :rank :suit :cardset :cardset-p
    ;; card struct
    :card :make-card :card-suit :card-rank :card-p
    ;; Converters
@@ -59,9 +58,10 @@
    :5d-lib.macros :5d-lib.functions
    :5d.model)
   (:export
-   :player
-   :error-player-nonexistent
-   :error-player-broke
+   ;; player struct
+   :player :make-player :player-name :player-balance :player-hand :player-p
+   :make-player-table
+   :error-player-nonexistent :error-player-broke
    :player-exists? :player-bankrupt? :player-can-pay?
    :player-debit
    :player-credit
@@ -81,5 +81,5 @@
   (:nicknames :5d.main)
   (:use :cl
    :5d-lib.macros :5d-lib.functions
-   :5d.model :5d.game)
+   :5d.model :5d.player :5d.game)
   (:export :start))
-- 
cgit v1.2.3-13-gbd6f