anchor.diff:  		  (* (length vector) (size-of element-type)))))))))
   
     (define-type-method reader-function ((type unboxed-vector) &key (ref :read) inlined)
  +    (check-unboxed-vector type)
       (destructuring-bind (element-type &optional (length '*))
   	(rest (type-expand-to 'unboxed-vector type))
  -      (check-unboxed-vector type)
         (cond
   	((eq length '*)
   	 (error "Can't create reader function for vector with variable size"))
  
positive.code: #+(or sbcl cmu)
  (progn
    (define-type-method alien-arg-wrapper ((type unboxed-vector) var vector style form &optional copy-in-p)
      (destructuring-bind (element-type &optional (length '*)) 
  	(rest (type-expand-to 'unboxed-vector type))
        (check-unboxed-vector type)
        (when (and (eq length '*) (out-arg-p style))
  	(error "Can't use vector with variable size as return type"))
        (cond
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: vectors.lisp,v 1.8 2008-04-30 17:35:48 espen Exp $
  
  
  (in-package "GFFI")
  