diff options
Diffstat (limited to 'webstats/stats.paren')
| -rw-r--r-- | webstats/stats.paren | 8 |
1 files changed, 3 insertions, 5 deletions
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) |