9230e81d302c

--- a/src/poker.lisp	Wed Aug 09 14:31:30 2017 -0400
+++ b/src/poker.lisp	Wed Aug 09 14:55:51 2017 -0400
@@ -23,11 +23,6 @@
 
 
 ;;;; Utils --------------------------------------------------------------------
-(defun emptyp (sequence)
-  (if (listp sequence)
-    (null sequence)
-    (= 0 (length sequence))))
-
 (defun all-equal (sequence &key (test #'eql))
   (or (emptyp sequence)
       (not (find (elt sequence 0) sequence :start 1 :test-not test))))

--- a/src/utils.lisp	Wed Aug 09 14:31:30 2017 -0400
+++ b/src/utils.lisp	Wed Aug 09 14:55:51 2017 -0400
@@ -235,11 +235,6 @@
   (truncate n (expt radix amount)))
 
 
-(defun hex (n)
-  (format t "~X" n)
-  (values))
-
-
 (defun concatenate-integers (&rest integers)
   "Concatenate each integer in `integers` and return a big ol' integer result."
   (values (parse-integer