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 
&quot;tmp.db&quot;)<br><br>(de countWords ... <br>&nbsp;&nbsp;&nbsp; <br>(setq 
Wrds (chop &quot;hello hello world apple orange strawberry apple 
hello&quot;))<br>
(setq Widx (countWords Wrds))<br><br>(let L (idx &#39;Widx)<br>&nbsp;&nbsp; 
(new! &#39;(+Awords) &#39;words L &#39;counts (mapcar val L)))<br><br>And I 
get:<br><br>: (load &quot;idxtest.l&quot;)<br>[idxtest.l:2] !? (extra Var (cdr 
Lst))<br>
T -- Bad extra<br>?&nbsp;&nbsp; <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 &#39;words L because I tried without the &#39;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]

Reply via email to