anchor.diff:  
   (defmacro each-node ((node buckets &optional return-form) &body body)
     (with-gensyms (head next)
  -    `(loop FOR ,head ACROSS ,buckets DO
  +    `(loop FOR ,head ACROSS (the (simple-array node) ,buckets) DO
          (loop FOR ,node = ,head THEN ,next
                FOR ,next = (node-next ,node)
                WHILE ,next DO
  
positive.code:          :if-absent (values nil)
           :if-existing 
           (progn (setf ,place (node-next ,node))
                  (values t))))))
  
  ;;;;;;;;;;;;
  (defun make (&key (test 'eql) (rehash-threshold 0.75) (size 8))
    (declare (positive-fixnum size))
    (let* ((bitlen (integer-length size))
           (buckets-size (ash 1 bitlen)))
      (recalc-rehash-border
  
negative.code:                           (key dict hash-fn test-fn) 
                            &key if-existing if-absent)
    `(let ((,hashcode (normalize-hashcode (,hash-fn ,key))))
       (with-candidate (,node ,place) (,hashcode ,dict)
         (if (and (= ,hashcode (node-hash ,node))
                  (,test-fn ,key (node-key ,node)))
             ,if-existing
  