Compilation warning

iamFIREcracker · Jan 29, 2024 · f4c006a · f4c006a
1 parent 3c10a3b
commit f4c006a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/2023/day08.lisp b/src/2023/day08.lisp
@@ -24,7 +24,8 @@
 
 (define-solution (2023 08) (input parse-input)
   (values (count-steps :aaa [eq _ :zzz] input)
-          (destructuring-bind (instructions . network) input
+          (destructuring-bind (_ . network) input
+            (declare (ignore _))
             (bnd* ((start-nodes (keep-if [string-ends-with-p "A" (mkstr _)]
                                          (alist-keys network) ))
                    (end? [string-ends-with-p "Z" (mkstr _)]))