external/ch-util/src/vector.cl

   1 ;;;
   2 ;;; vector.cl -- various lisp utilities for vectors
   3 ;;;
   4 ;;; Author: Cyrus Harmon <ch-lisp@bobobeach.com>
   5 ;;;
   6
   7 (in-package :ch-util)
   8
   9 ;;; Miscellaneous vector utilities
  10
  11 (defun map-vector (fn v
  12                    &key
  13                    (adjustable t)
  14                    (fill-pointer 0))
  15   (let* ((n (length v))
  16          (a (make-array n
  17                         :adjustable adjustable
  18                         :fill-pointer fill-pointer)))
  19     (map-into a fn v)))
  20