More `(setf (values ...) ...)`ing
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Fri, 16 Dec 2016 20:23:33 -0500 |
| parents |
3adca260d465
|
| children |
9671aac2bbb5
|
| branches/tags |
(none) |
| files |
src/emulator.lisp |
Changes
--- a/src/emulator.lisp Fri Dec 16 15:31:51 2016 -0500
+++ b/src/emulator.lisp Fri Dec 16 20:23:33 2016 -0500
@@ -317,11 +317,10 @@
(setf index (font-location (register r))))
(define-opcode op-ld-bcd<vx (_ r _ _) ;; LD B, Vx
- (multiple-value-bind (hundreds tens ones)
- (bcd (register r))
- (setf (aref memory (+ index 0)) hundreds
- (aref memory (+ index 1)) tens
- (aref memory (+ index 2)) ones)))
+ (setf (values (aref memory (+ index 0)) ; hundreds
+ (aref memory (+ index 1)) ; tens
+ (aref memory (+ index 2))) ; ones
+ (bcd (register r))))
(define-opcode op-draw (_ rx ry size) ;; DRW Vx, Vy, size
(draw-sprite chip (register rx) (register ry) size))