From 49380ae714f2a32ec440b5c2f5f52b67d5b30a03 Mon Sep 17 00:00:00 2001
From: Colin Okay <cbeok@protonmail.com>
Date: Thu, 13 Aug 2020 13:11:54 -0500
Subject: comment

---
 examples.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/examples.lisp b/examples.lisp
index 212bb21..8d9204c 100644
--- a/examples.lisp
+++ b/examples.lisp
@@ -12,6 +12,6 @@
       #$(mapcar #'*
                 (loop :for i :upto (length $digits) :collect (1+ (mod i 2)))
                 $digits)
-      #$(mapcar #$$(if (> $$x 9) (- $$x 9) $$x) $digits)
+      #$(mapcar #$$(if (> $$x 9) (- $$x 9) $$x) $digits)  ;; <-- nested partial eval
       #$(zerop (mod (apply #'+ $digits) 10))))
 
-- 
cgit v1.2.3