I tried it with this: (class +Awords +Entity) (rel words (+Key +List)) (rel counts (+List))
(pool "tmp.db") (de countWords ... (setq Wrds (chop "hello hello world apple orange strawberry apple hello")) (setq Widx (countWords Wrds)) (let L (idx 'Widx) (new! '(+Awords) 'words L 'counts (mapcar val L))) And I get: : (load "idxtest.l") [idxtest.l:2] !? (extra Var (cdr Lst)) T -- Bad extra ? I double checked, at this point Widx is really just a simple list, I have no idea why I get the above error but it relates to the insert of 'words L because I tried without the 'counts part and I still got the error, I tried without the +Key too, no luck. What is happening here? /Henrik ------=_Part_38254_7969610.1223202157782 Content-Type: text/html; charset=ISO-8859-1 Content-Transfer-Encoding: 7bit Content-Disposition: inline <div dir="ltr">I tried it with this:<br><br>(class +Awords +Entity)<br>(rel words (+Key +List))<br>(rel counts (+List))<br><br>(pool "tmp.db")<br><br>(de countWords ... <br> <br>(setq Wrds (chop "hello hello world apple orange strawberry apple hello"))<br> (setq Widx (countWords Wrds))<br><br>(let L (idx 'Widx)<br> (new! '(+Awords) 'words L 'counts (mapcar val L)))<br><br>And I get:<br><br>: (load "idxtest.l")<br>[idxtest.l:2] !? (extra Var (cdr Lst))<br> T -- Bad extra<br>? <br><br>I double checked, at this point Widx is really just a simple list, I have no idea why I get the above error but it relates to the insert of 'words L because I tried without the 'counts part and I still got the error, I tried without the +Key too, no luck. What is happening here?<br> <br>/Henrik<br></div> ------=_Part_38254_7969610.1223202157782-- -- UNSUBSCRIBE: mailto:[EMAIL PROTECTED]
