[ clisp-Bugs-3165405 ] loop expansion

[SourceForge.net <no...@so...>]

Bugs item #3165405, was opened at 2011-01-25 12:50
Message generated for change (Comment added) made by sds
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3165405&group_id=1355

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: clisp
Group: ANSI compliance issue
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Don Cohen (donc)
Assigned to: Bruno Haible (haible)
Summary: loop expansion 

Initial Comment:
[I guess this is an ansi compliance issue?]
 (setf ht (make-hash-table)) 
 (setf (gethash 1 ht) 2) 
 (loop for k being the hash-keys of ht as v being the 
    hash-values of ht with ut = 3 count t)  
 0  
I think the answer should be 1, as below
 (loop with ut = 3 for k being the hash-keys of ht as v 
    being the hash-values of ht  count t)  
 1  
 (loop for k being the hash-keys of ht with ut = 3 as v 
    being the hash-values of ht  count t)  
 1  


----------------------------------------------------------------------

>Comment By: Sam Steingold (sds)
Date: 2011-03-25 16:11

Message:
this is, of course, a bug;
note that the more efficient version of the same loop is
(loop with ut = 3 for k being the hash-keys of ht using (hash-values v)
count t)

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=101355&aid=3165405&group_id=1355