/[gcl]/gcl/ansi-tests/loop6.lsp
ViewVC logotype

Diff of /gcl/ansi-tests/loop6.lsp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by pfdietz, Mon Nov 11 14:01:32 2002 UTC revision 1.4 by pfdietz, Tue Nov 12 12:00:22 2002 UTC
# Line 244  Line 244 
244          using (hash-value (v1 . v2)) sum (+ v1 v2))          using (hash-value (v1 . v2)) sum (+ v1 v2))
245    21)    21)
246    
247    (deftest loop.6.39
248      (loop as x being the hash-value of *loop.6.hash.1* sum x)
249      6)
250    
251    (deftest loop.6.40
252      (sort (loop as x being the hash-key of *loop.6.hash.1* collect x)
253            #'symbol<)
254      (a b c))
255    
256  ;;; Error tests  ;;; Error tests
257    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26