9230e81d302c

Remove unnecessary utils
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Wed, 09 Aug 2017 14:55:51 -0400
parents d8750d0cda0f
children 4f58a841ae48
branches/tags (none)
files src/poker.lisp src/utils.lisp

Changes

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