anchor.diff:  	  '(glist-free glist))
          (nreverse list))))
   
  -(deftype-method cleanup-alien double-list (type-spec glist &optional copied)
  +(deftype-method cleanup-alien glist (type-spec glist &optional copied)
     (declare (ignore copied))
  -  (let* ((element-type-spec (second (type-expand-to 'double-list type-spec)))
  +  (let* ((element-type-spec (second (type-expand-to 'glist type-spec)))
   	 (alien-type-spec (translate-type-spec element-type-spec)))
       `(let ((glist ,glist))
          (unless (null-pointer-p glist)
  
positive.code:   (declare (ignore copy))
    (destructuring-bind (element-type &optional (length '*))
        (cdr (type-expand-to 'vector type-spec))
      (let ((element-to-alien (translate-to-alien element-type 'element :copy))
  	  (element-size (size-of element-type)))
        `(let ((vector ,vector))
  	 (let ((c-vector
  		(allocate-memory
  
negative.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: glib.lisp,v 1.7 2000-10-05 17:17:41 espen Exp $
  
  
  (in-package "GLIB")
  