anchor.diff:  		(setf (ref-pointer to offset) vector)	    
   		(funcall copy-content (ref-pointer from offset) vector)))))))))
   
  +
   ;;;; Unboxed vector
   
   (deftype unboxed-vector (element-type &optional (length '*)) 
  
positive.code: 
  
    (define-type-method from-alien-form ((type unboxed-vector) form &key (ref :free))
      (destructuring-bind (element-type &optional (length '*))
  	(rest (type-expand-to 'unboxed-vector type))
        (check-unboxed-vector type)
        (when (eq length '*)
  	(error "Can't use vector of variable size as return type"))
        `(let ((c-vector ,form)
  
negative.code: #+(or sbcl cmu)
  (progn
    (define-type-method alien-arg-wrapper ((type unboxed-vector) var vector style form &optional copy-in-p)
      (check-unboxed-vector type)
      (destructuring-bind (element-type &optional (length '*)) 
  	(rest (type-expand-to 'unboxed-vector type))
        (when (and (eq length '*) (out-arg-p style))
  	(error "Can't use vector with variable size as return type"))
        (cond
  