From 346dcbecc20802f7bc86b5a8c4ca2d1c4bed37c0 Mon Sep 17 00:00:00 2001 From: Oscar Najera Date: Sun, 9 Feb 2025 16:15:06 +0100 Subject: for of syntax --- webstats/stats.paren | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'webstats/stats.paren') diff --git a/webstats/stats.paren b/webstats/stats.paren index 896dcec..a4f6957 100644 --- a/webstats/stats.paren +++ b/webstats/stats.paren @@ -23,11 +23,9 @@ (chain window (open link "_blank"))))))))) (defun instrument-links () - (chain document (query-selector-all "a") - (for-each (lambda (link) - (setf (@ link onclick) #'register-click) - (setf (@ link onauxclick) #'register-click) - )))) + (for-of (link ((@ document query-selector-all) "a")) + (setf (@ link onclick) #'register-click) + (setf (@ link onauxclick) #'register-click))) (defun register-page-load () (let ((data (create :title (@ document title) -- cgit v1.2.3