RE: search list and return the match list

Hi Kevin The following code should be ok: procedure( CCSflattenList(myList) if(listp(myList) mapcan('CCSflattenList myList) list(myList) ) ;if ) ;procedure CCSflattenList from solution 11023690 myList1= list("at" "ad" "ap") myList2=list("dad" "bad" "god" "dog" "map" "lap" "glad") procedure( CCSgetMatchedItems(myList1 myList2) prog( (myList3 myList3Flat myList3Final) myList3=foreach( mapcar x myList1 pcreMatchList(x myList2) ) ;foreach myList3Flat=CCSflattenList(myList3) myList3Final=list() foreach( x myList3Flat unless( member(x myList3Final) myList3Final=append1(myList3Final x) ) ;unless ) ;foreach return(myList3Final) ) ;prog ) ;procedure CCSgetMatchedItems(myList1 myList2) Best regards Quek