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/game.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/game.lisp')

diff --git a/src/game.lisp b/src/game.lisp
index e9f234f..47831f4 100644
--- a/src/game.lisp
+++ b/src/game.lisp
@@ -19,8 +19,8 @@
 
 (in-package :cantedraw.game)
 
-(fn deal-cards (n deck) (-> (fixnum cardset) (cons cardset cardset))
-  (destructuring-bind (hand . rest) (split n deck)
+(fn deal-cards (n deck) (-> (fixnum cardset) (cons cardset ))
+  (multiple-value-bind (hand rest) (split n deck)
     (cons (sort hand #'card<) rest)))
 
 (fn deal-hands (n deck) (-> (fixnum cardset) (cons list cardset))
-- 
cgit v1.2.3-13-gbd6f