diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/model.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/model.lisp b/src/model.lisp index 7cb1792..ffa1a4a 100644 --- a/src/model.lisp +++ b/src/model.lisp @@ -30,11 +30,11 @@ (deftype int-card () `(integer 0 51)) +(deftype cardset () `(and list (satisfies cardsetp))) + (fn cardsetp (lst) (-> (list) boolean) (every #'(lambda (x) (typep x 'card)) lst)) -(deftype cardset () `(and list (satisfies cardsetp))) - (fn int->suit (n) (-> (int-card) suit) (case (floor n 13) (0 :Diamonds) |