anchor.diff:  	   (elt sequence i)
   	   (funcall function (funcall reader location (* i size)))))
   	sequence)))))
  -     
positive.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.11 2001-11-12 22:20:40 espen Exp $
  
  
  (in-package "GLIB")
  
negative.code: 	 (dotimes (i ,length)
  	   (setf
  	    (aref vector i)
  	    ,(translate-from-alien
  	      element-type
  	      `(,(sap-ref-fname element-type) c-array (* i ,element-size))
  	      weak-ref)))
  