Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!snorkelwacker.mit.edu!bloom-beacon!eru!hagbard!sunic!mcsun!hp4nl!kubix!kub.nl!pberck
From: pberck@kub.nl (Peter Berck)
Newsgroups: comp.lang.lisp
Subject: zeta lisp
Message-ID: <1991Apr09.110422.19604@kub.nl>
Date: 9 Apr 91 11:04:22 GMT
Reply-To: pberck@kub.nl
Organization: KUB, The Netherlands
Lines: 21

I know it's a long shot, but does anyone know what this does:

(........
            (AND (STRING-EQUAL (STRING-CADR L) "j")
                 (zl:MEM #'STRING-EQUAL
                         (STRING-CAR (STRING-LAST MEM)) '("e" "a" "o"))))))

I am 'translating' a program written in ZetaLisp for someone, and I am
not sure what (zl:MEM ... ..) does, because I don't have the zl
package. He is away for a week, so I can't ask him, ... so I am trying
it this way.

it looks like some sort of mapping function (?). MEM is (also) a
variable defined in the DO loop where this happens...

thanks for any help
-peter


--------------------------------------
pberck@kub.nl     -     kubvx1::berckp