4a305535df61

`digit` moved to cl-losh
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Wed, 21 Dec 2016 15:29:11 -0500
parents f5b1186121b8
children 2b9d7edf9182
branches/tags (none)
files src/emulator.lisp

Changes

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