# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1502304951 14400
# Node ID 9230e81d302c415e745a47b37bab9869bea80b66
# Parent  d8750d0cda0f9414085ff5cfdbb43dd6c7b9d6b7
Remove unnecessary utils

diff -r d8750d0cda0f -r 9230e81d302c src/poker.lisp
--- 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))))
diff -r d8750d0cda0f -r 9230e81d302c src/utils.lisp
--- 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