anchor.diff:                      ,(let ((ht (make-hash-table :test 'equal)))
                          (setf (gethash "one" ht) 1)
                          ht))
  -                (gethash "arr" %result%)))))
  +                (gethash "arr" %result%))))
  +  (setf webkit:*js-object-type* :alist))
   
   (def-test everything-object-plist (:suite js-tests)
     (setf webkit:*js-object-type* :plist)
  
positive.code:                          ("ten" . 10)
                           ("googol" . -1.0000000000000002d100)))
                   ("arr" . (t nil :undefined :null 100000 "hello" (("one" . 1)))))
                 %result%)))
    (setf webkit:*js-object-type* :hash-table))
  
  (def-test everything-object-hash (:suite js-tests)
    (with-js-transform-result
        "var obj = {one: 1, nul: null, undef: undefined, googol: Math.pow(10, 100),
  nil: false, t: true,
  
negative.code:     (is (equal (list t nil t t nil) %result%))))
  
  (def-test everything-array (:suite js-tests)
    (with-js-transform-result "[true, false, undefined, null, 100000, \"hello\", {one: 1}]"
      (is (equal (list t nil :undefined :null 100000 "hello" '(("one" . 1))) %result%))))
  
  (def-test everything-array-vector (:suite js-tests)
    (setf webkit:*js-array-type* :vector)
    (with-js-transform-result "[true, false, undefined, null, 100000, \"hello\", {one: 1}]"
      (is (equalp (vector t nil :undefined :null 100000 "hello" '(("one" . 1))) %result%)))
    (setf webkit:*js-array-type* :list))
  
  ;;; Objects
  
  (def-test single-field-object (:suite js-tests)
    (with-js-transform-result "var obj = {one: 1}; obj"
      (is (equal (list (cons "one"  1)) %result%))))
  
  (def-test long-object (:suite js-tests)
    (with-js-transform-result
        "var obj = {one: 1, two: 2, three: 3, five: 5, ten: 10, googol: Math.pow(10, 100)}; obj"
      (is (equal (list (cons "one"  1)
  