58c58,60
<    #:cancel-finalization))
---
>    #:cancel-finalization
>    #:mem-read-vector
>    #:mem-write-vector))
319a322,338
> 
> 
> ;;from http://common-lisp.net/project/cffi/darcs/cffi/doc/mem-vector.txt
> 
> (defun mem-read-vector (vector ptr type count &optional (offset 0))
>   (loop for i below (min count (length vector))
>      for off from offset by (%foreign-type-size type)
>      do (setf (aref vector i) (%mem-ref ptr type off))
>      finally (return i)))
> 
> (defun mem-write-vector (vector ptr type &optional (count (length vector)) (offset 0))
>   (loop for i below count
>       for off from offset by (%foreign-type-size type)
>             do (%mem-set (aref vector i) ptr type off)
>                   finally (return i)))
> 
>