Parent Directory | Revision Log | 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 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |