anchor.diff:  ;; 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.7 2008-04-29 22:16:28 espen Exp $
  +;; $Id: vectors.lisp,v 1.8 2008-04-30 17:35:48 espen Exp $
   
   
   (in-package "GFFI")
  
positive.code: 		(setf (ref-pointer to offset) vector)	    
  		(funcall copy-content (ref-pointer from offset) vector)))))))))
  
  ;;;; Unboxed vector
  
  (deftype unboxed-vector (element-type &optional (length '*)) 
  
negative.code: 
    (define-type-method writer-function ((type unboxed-vector) &key temp inlined)
      (declare (ignore temp))
      (check-unboxed-vector type)
      (destructuring-bind (element-type &optional (length '*))
  	(rest (type-expand-to 'unboxed-vector type))
        (if inlined
  	  (if (eq length '*)
  	      (error "Can't inline vector with variable size: ~A" type)
  