From: Raymond T. <rt...@us...> - 2004-11-29 23:22:55
|
Update of /cvsroot/maxima/maxima/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26315/src Modified Files: askp.lisp Log Message: Use member, with a test of char-equal to compare characters ignoring case so we can print "a", or "an" appropriately. Index: askp.lisp =================================================================== RCS file: /cvsroot/maxima/maxima/src/askp.lisp,v retrieving revision 1.5 retrieving revision 1.6 diff -u -d -r1.5 -r1.6 --- askp.lisp 26 Nov 2004 15:16:44 -0000 1.5 +++ askp.lisp 29 Nov 2004 23:22:45 -0000 1.6 @@ -100,8 +100,9 @@ ((memq answer '($unknown $uk)) '$unknown))) (setq answer (retrieve `((mtext) |Is | ,object - ,(if (zl-member (getcharn property 1) - '(#\a #\e #\i #\o #\u)) + ,(if (member (getcharn property 1) + '(#\a #\e #\i #\o #\u) + :test #'char-equal) '| AN | '| A |) ,property ,@fun-or-number |?|) |