anchor.diff:        ((>= index (array-dimension vector 0)))
       (setf (aref vector index) (funcall constructor index)))
     vector)
  +
   
   
   (defun undisplace-array (array)
  
positive.code:    "DISTINCT-FLOAT-TYPES" "FLOAT-TYPECASE" "FLOAT-CTYPECASE" "FLOAT-ETYPECASE"
     "+EPSILON" "-EPSILON"
     ;; 14 - CONSES
     "MAXIMIZE" "TOPOLOGICAL-SORT" "TRANSITIVE-CLOSURE"
     "COMPUTE-CLOSURE" ; deprecated, renamed to transitive-closure
     ;; 15 - ARRAYS
     "VECTOR-INIT" "UNDISPLACE-ARRAY" "DICHOTOMY-SEARCH"
     ;; 16 - STRINGS
  
negative.code: ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>
  ;;;;****************************************************************************
  
  (defpackage "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.UTILITY"
    (:use "COMMON-LISP"
          "COM.INFORMATIMAGO.COMMON-LISP.LISP-SEXP.SOURCE-FORM"
  