Skip to content
Snippets Groups Projects
Commit 62bf13f2 authored by pfdietz's avatar pfdietz
Browse files

Added 'as' tests for loop-as-hash.

parent 8907077b
No related branches found
No related tags found
No related merge requests found
...@@ -244,6 +244,14 @@ ...@@ -244,6 +244,14 @@
using (hash-value (v1 . v2)) sum (+ v1 v2)) using (hash-value (v1 . v2)) sum (+ v1 v2))
21) 21)
(deftest loop.6.39
(loop as x being the hash-value of *loop.6.hash.1* sum x)
6)
(deftest loop.6.40
(sort (loop as x being the hash-key of *loop.6.hash.1* collect x)
#'symbol<)
(a b c))
;;; Error tests ;;; Error tests
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment