Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!uunet!pmafire!mica.inel.gov!INEL.GOV!rkf
From: rkf@INEL.GOV (Raymond K. Fink)
Newsgroups: comp.lang.lisp
Subject: Re: zeta lisp
Message-ID: <1991Apr9.185632.22809@inel.gov>
Date: 9 Apr 91 18:56:32 GMT
References: <1991Apr09.110422.19604@kub.nl>
Sender: news@inel.gov
Reply-To: rkf@inel.gov
Organization: Idaho National Engineering Laboratory
Lines: 27

In article <1991Apr09.110422.19604@kub.nl>, pberck@kub.nl (Peter Berck) writes:
>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 don't *know*, but it looks suspiciously like a set membership test, using 
#'string-equal to test (string-car ..etc..) against elements of the list
'("e" "a" "o").  The interesting question is what does zl:MEM return when it
finds a match, e.g. does it behave like SOME, FIND, or MEMBER ?

Ray Fink -- Idaho National Engineering Laboratory -- Idaho Falls ID 
	rkf@inel.gov			208-526-9323
========== long legal disclaimer follows, press n to skip ===========

Neither the United States Government or the Idaho National Engineering
Laboratory or any of their employees, makes any warranty, whatsoever,
implied, or assumes any legal liability or responsibility regarding any
information, disclosed, or represents that its use would not infringe
privately owned rights.  No specific reference constitutes or implies
endorsement, recommendation, or favoring by the United States
Government or the Idaho National Engineering Laboratory.  The views and
opinions expressed herein do not necessarily reflect those of the
United States Government or the Idaho National Engineering Laboratory,
and shall not be used for advertising or product endorsement purposes.