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