4a305535df61
`digit` moved to cl-losh
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)))))) - -