diff --git a/ansi-tests/loop6.lsp b/ansi-tests/loop6.lsp index f3ca243e1eec2860471ef258e7011e40177da07c..3dc41231c1a9bd2031304685fa1c956608f89ad7 100644 --- a/ansi-tests/loop6.lsp +++ b/ansi-tests/loop6.lsp @@ -244,6 +244,14 @@ using (hash-value (v1 . v2)) sum (+ v1 v2)) 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