On 2/12/07, Douglas Crosher <dtc at scieneer.com> wrote:
> :lisp ($nounify '$abs) => %ABS
> :lisp ($nounify 'mabs) => %MABS
> :lisp ($nounify '|mabs|) => %abs
>
> On a lowercase or modern-mode lisp:
> :lisp ($nounify 'mabs) => %abs
>From looking at $NOUNIFY in src/suprv1.lisp, it appears that
an initial $ or letter M should be stripped off and replaced with %.
I don't see a reason to think the test for M should be case-sensitive.
So I'm inclined to think ($nounify 'mabs) => %MABS is unintended --
should be %ABS, I'm pretty sure. Changing
(member (car (setq y (explodec x))) '($ m) :test #'equal)
to
(member (car (setq y (explodec x))) '($ |m| |M|) :test #'equal)
seems to fix it -- now ($nounify 'mabs) => %ABS .
Does the test against '($ |m| |M|) yield something sensible for
case-sensitive Lisp?
HTH
Robert