b148ffd26464

Work around an ABCL bug to make the tests pass
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Sat, 29 Aug 2020 23:57:54 -0400
parents 8baa554470fd
children 700d5c649245
branches/tags (none)
files test/tests.lisp

Changes

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