b148ffd26464

--- 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