Some of these "how deep is an atom in a #commonLisp form in a file" pictures are deeply satisfying to look at.

#gnuplot #clseries Sharpsign... Visualizing lisp expression leaf depth

https://screwlisp.small-web.org/momentary/alexandria-form-atom-heights/

Make your own in this thread plz. Will send help.

Requests, conceivably.

Revisits how to write
(let* ((current-dir (car (directory #p"./")))
(wild-dir
(make-pathname :directory
'(:relative :wild-inferiors))
)
(wild-here
(merge-pathnames wild-dir current-dir))

@mdhughes I guess this is marklib from arrokoth
https://mdhughes.tech/software/arrokoth/

From what I can tell looking at the previoush alexandria-1/hash-tables.lisp, that long-one is because variations on

(setf test (or test (hash-table-test table)))

are being done, even though later setfs could be omitted.
@mdhughes

@screwlisp That fits, I try to do short, maybe nested/recursive code. The long one's (menu), which really is kind of a code smell.