parent 4136b841
......@@ -141,3 +141,8 @@ iterators or a Java array."
(coerce (#"toArray" thing) 'list))
(t
(error "yet another iteration type - fix it: ~a" (jclass-name (jobject-class thing))))))))
(defun to-hashset (list)
(let ((set (new 'hashset)))
(loop for l in list do (#"add" set l))
set))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment