Re: [Gcl-devel] ansi-test

[Sam Steingold]

> * In message <address@hidden>
> * On the subject of "Re: [Gcl-devel] ansi-test"
> * Sent on Tue, 17 Dec 2002 07:30:11 -0600
> * Honorable "Paul F. Dietz" <address@hidden> writes:
>
> Send me a list of tests you want explained and I'll add the comments.

at the very least you might replace ALPHANUMERICP.5.BODY (&c) with

(loop :for i :from 0 :below char-code-limit
  :for x = (code-char i)
  :unless (or (not (characterp x))
              (if (or (digit-char-p x) (alpha-char-p x))
                  (alphanumericp x)
                  (not (alphanumericp x))))
  :collect (list x :digit (digit-char-p x) :alpha (alpha-char-p x)
                 :alphanumericp (alphanumericp x)))

this at least makes it obvious what is being tested!

-- 
Sam Steingold (http://www.podval.org/~sds) running RedHat8 GNU/Linux
<http://www.camera.org> <http://www.iris.org.il> <http://www.memri.org/>
<http://www.mideasttruth.com/> <http://www.palestine-central.com/links.html>
What was the best thing before sliced bread?