El Mar 8, 2009, a las 2:09 PM, Mikael Jansson escribió: > Francesco Petrogalli wrote: >> Thank you very much! >> >> >> >> 2009/3/8 Mikael Jansson <[email protected]>: >>>> (subsetp (list 'free) *stato*) ==> T >>>> >>>> (subsetp (list 'free (on 'A 'B)) *stato*) ==> nil >>>> >>> Your function ON returns a fresh list each time. >>> >>> Try (subsetp (list 'free (on 'A 'B)) *stato* :test #'equalp) >>> > Sorry, that was the incorrect answer, but it happened to do the right > thing. :) > > EQUAL would in fact suffice, as it does checks the items for > structural > equality which is what you want. EQUALP is "slopier" than EQUALP. > > I don't know what the default :TEST function is, but I'm assuming EQL.
http://www.lispworks.com/documentation/HyperSpec/Body/17_ba.htm -- __Pascal Bourguignon__ http://www.informatimago.com _______________________________________________ Gardeners mailing list [email protected] http://www.lispniks.com/mailman/listinfo/gardeners
