anchor.diff:  	(error "Can't use vector of variable size as return type")
         `(map-c-vector 'vector #'identity ,c-vector ',element-type ',length))))
   
  +(defmethod copy-from-alien-function ((type (eql 'vector)) &rest args)
  +  (declare (ignore type))
  +  (destructuring-bind (element-type &optional (length '*)) args
  +    (if (eq length '*)
  +	(error "Can't use vector of variable size as return type")
  +      #'(lambda (c-vector)
  +	  (map-c-vector 'vector #'identity c-vector element-type length)))))
  +
   (defmethod cleanup-form (location (type (eql 'vector)) &rest args)
     (declare (ignore type))
     (destructuring-bind (element-type &optional (length '*)) args
  
positive.code: 
  (defmethod size-of ((type (eql 'null-terminated-vector)) &rest args)
    (declare (ignore type args))
    (alien-type 'pointer))
  
  (defmethod writer-function ((type (eql 'null-terminated-vector)) &rest args)
    (declare (ignore type))
  
negative.code: ;; Common Lisp bindings for GTK+ v1.2.x
  ;; Copyright (C) 1999-2005 Espen S. Johnsen <espen@users-sf-net>
  ;;
  ;; This library is free software; you can redistribute it and/or
  ;; modify it under the terms of the GNU Lesser General Public
  