# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1481937813 18000
# Node ID d9139e596d0a5801ea28478902d8133c1f820629
# Parent  3adca260d465dd44e24fcc54b11242d7e101d75f
More `(setf (values ...) ...)`ing

diff -r 3adca260d465 -r d9139e596d0a src/emulator.lisp
--- 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))