anchor.diff:     (make-array (length members)
                  :element-type (upgraded-array-element-type element-type)
                  :initial-contents members)))
  +
  +;; --------------------
   
   (defmacro do-simple-vector-iterable ((s whence &optional returnv) &body forms)
     ;; NB: This simple protocol may not provide support for iterable type
  
positive.code: 
  )
  
  
  
  (defstruct (list-iterable
  
negative.code: ;;------------------------------------------------------------------------------
  
  (defpackage #:ltp/common/iter
    (:use #:ltp/common/mop #:ltp/common #:cl))
  
  
  (in-package #:ltp/common/iter)
  