# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1482352151 18000
# Node ID 4a305535df61f8828ff4f650bfac7e8be69dc8dc
# Parent  f5b1186121b8805320ca5008a3faa6ae0ba0a883
`digit` moved to cl-losh

diff -r f5b1186121b8 -r 4a305535df61 src/emulator.lisp
--- a/src/emulator.lisp	Wed Dec 21 15:13:57 2016 -0500
+++ b/src/emulator.lisp	Wed Dec 21 15:29:11 2016 -0500
@@ -49,11 +49,6 @@
   (values (chop 8 (ash v 1))
           (get-bit 7 v)))
 
-(defun-inline digit (position integer &optional (base 10))
-  (-<> integer
-    (floor <> (expt base position))
-    (mod <> base)))
-
 (defmacro macro-map (lambda-list items &rest body)
   (with-gensyms (macro)
     `(macrolet ((,macro ,(ensure-list lambda-list) ,@body))
@@ -549,5 +544,3 @@
         (bt:make-thread (curry #'run-timers chip))
         (bt:make-thread (curry #'run-sound chip))))))
 
-
-