anchor.diff:  (uiop:define-package :liter/base
     (:use :cl :iterate)
     (:import-from :serapeum
  -                #:define-do-macro)
  +                #:define-do-macro
  +                #:finc)
     (:export #:get-iterator
              #:make-hash-key-iterator
              #:make-hash-value-iterator
  
positive.code:            #:iterator-list))
  
  (in-package :liter/base)
  
  (defmacro post-incf (place)
    "Increment PLACE and return the old value"
    `(prog1 ,place
       (incf ,place)))
  
  (define-condition iteration-ended (simple-condition) ()
    (:documentation "Condition signaled when an iterator has reached the end."))
  
negative.code:           (len (array-total-size a)))
        (lambda ()
          (if (< i len)
              (values (row-major-aref a (finc i)) t)
              (end-iteration)))))
  
    (:method ((h hash-table))
  