diff options
Diffstat (limited to 'src/model.lisp')
| -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 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) |