anchor.diff:    (let ((test (if (oddp (length keys-and-values))
                     (pop keys-and-values)
                     'equal)))
  -    (plist-hash-table keys-and-values :test test)))
  +    (values (plist-hash-table keys-and-values :test test))))
   
   (define-compiler-macro dict (&rest keys-and-values)
     (let ((test (if (oddp (length keys-and-values))
  
positive.code: (-> dict (&rest t) hash-table)
  (-> pophash (t hash-table) (values t boolean))
  (-> swaphash (t t hash-table) (values t boolean))
  (-> merge-tables (hash-table &rest hash-table) hash-table)
  
  (defconst hash-table-default-size
    (hash-table-size (make-hash-table)))
  
negative.code:                    (reduce #'+ tables
                             :key #'hash-table-count
                             :initial-value (hash-table-count table)))))
      (values
       (apply #'merge-tables!
              (copy-hash-table table :size size)
              tables))))
  
  (defun merge-tables! (table &rest tables)
    (reduce (lambda (x y)
  