adventofcode2022

commit 7d6cf65c3785908168567a2da695ac3d8e14fc1a
parent b395818b35867113db7d5ceea12cd630c14f8db1
Author: Lukas Henkel <lh@entf.net>
Date:   Sat, 10 Dec 2022 09:20:17 +0100

Supress output in task 1

Diffstat:
M
src/day10.lisp
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src/day10.lisp b/src/day10.lisp
@@ -5,7 +5,7 @@
 (defun sprite-covers-pixel-p (pixel sprite-pos)
   (<= (abs (- sprite-pos pixel)) 1))
 
-(defun run-cpu (inputs &key (video-stream t))
+(defun run-cpu (inputs &optional video-stream)
   (loop with x = 1
         with i = 1
         for (op value) in inputs
@@ -37,7 +37,7 @@
 
 (defun task2 (inputs)
   (with-output-to-string (s)
-    (run-cpu inputs :video-stream s)))
+    (run-cpu inputs s)))
 
 (define-day 10
     (:translate-input (lambda (line)