Overhaul

Loads of changes, some which I wasn't sure what I was on when doing
them

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))