--- 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