.lispwords @ ab7ad2d6f641

Optimize `find-anonymous-variables`

After some profiling I found that this function was taking 4% of the total
runtime just on its own.  The culprit was `tree-collect`, which does some
expensive things (like `(gensym)`).  Because we know exactly what we need we can
write something much faster, and profiling confirms that this function isn't
even on the map any more.

(2 code-push-instruction!)
(1 repeat)
(2 define-instruction define-instructions)
(1 with-database)
(3 with-cell)
(2 set-when-unbound)
(1 recursively)
(1 when-let)
(1 rule)
(0 push-logic-frame-with)