# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1598759874 14400
# Node ID b148ffd264648c7bc7885f23ebea198afa4a3575
# Parent  8baa554470fd3d58cb66b2c28ecf0249aa52f952
Work around an ABCL bug to make the tests pass

diff -r 8baa554470fd -r b148ffd26464 test/tests.lisp
--- a/test/tests.lisp	Sat Aug 29 23:48:49 2020 -0400
+++ b/test/tests.lisp	Sat Aug 29 23:57:54 2020 -0400
@@ -661,7 +661,8 @@
   (let ((result (make-hash-table :test #'equal
                                  :size (hash-table-count hash-table))))
     (maphash (lambda (k v)
-               (setf (gethash k result) (funcall function v)))
+               (setf (gethash (funcall function k) result)
+                     (funcall function v)))
              hash-table)
     result))
 
@@ -709,6 +710,10 @@
 (defmethod to-jarl ((from (eql 'yason)) (o null))
   nil)
 
+(defmethod to-jarl ((from (eql 'yason)) (o string))
+  #+abcl (copy-seq o) ; https://github.com/armedbear/abcl/issues/275
+  #-abcl o)
+
 
 (defmethod from-jarl ((to (eql 'yason)) (o symbol))
   (ecase o