X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/e034af81a49a0af96997bef5b734b07dda8b4d68..cea43e54e89c50cf290232826d8f8b3d3fc3fbb6:/glib/glib.lisp?ds=sidebyside diff --git a/glib/glib.lisp b/glib/glib.lisp index c8175d9..55187e8 100644 --- a/glib/glib.lisp +++ b/glib/glib.lisp @@ -15,7 +15,7 @@ ;; 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.12 2002/01/20 14:06:50 espen Exp $ +;; $Id: glib.lisp,v 1.14 2004/10/31 11:37:11 espen Exp $ (in-package "GLIB") @@ -351,10 +351,10 @@ (deftype-method unreference-alien vector (type-spec c-vector) `(dotimes (i ,length) (unreference-alien element-type (sap-ref-sap c-vector (* i ,element-size)))) - `(do ((offset 0 (+ offset ,element-size)) + `(do ((offset 0 (+ offset ,element-size))) ((sap= (sap-ref-sap c-vector offset) - *magic-end-of-array*))) + *magic-end-of-array*)) ,(unreference-alien element-type '(sap-ref-sap c-vector offset)))))) (deallocate-memory c-vector)))))