Folks,
I noticed that APPLY_NOUNS, while documented, actually lacks an
implementation. Since I needed it for my work with the tensor code, I wrote
a simple version:
(DEFMFUN $APPLY_NOUNS (PART)
(COND ((SYMBOLP PART)
(COND ((EQ (GETCHAR PART 1) '%) ($VERBIFY PART)) (T PART))
)
((ATOM PART) PART)
(T (CONS ($APPLY_NOUNS (CAR PART)) ($APPLY_NOUNS (CDR PART))))
)
)
It looks a bit suspiciously simple, but it works in all the test cases I
threw at it. (That it just replaces noun forms with verbs and doesn't
evaluate the expression is intentional. If you want evaluation, EV(%,NOUNS)
works fine.)
Trouble is, I really don't know where it should go. Furthermore, if it
belongs to a section of the code that is being actively maintained, it's
probably best if whoever maintains it takes care of it, instead of me
mucking up somebody else's work. So, since I'm the new kid on the block, so
to speak, I thought I'd seek your advice first.
Viktor