Update of /project/movitz/cvsroot/movitz In directory common-lisp.net:/tmp/cvs-serv14281 Modified Files: image.lisp Log Message: *** empty log message *** Date: Wed Dec 15 14:58:15 2004 Author: ffjeld Index: movitz/image.lisp diff -u movitz/image.lisp:1.85 movitz/image.lisp:1.86 --- movitz/image.lisp:1.85 Mon Dec 13 12:22:50 2004 +++ movitz/image.lisp Wed Dec 15 14:58:08 2004 @@ -9,7 +9,7 @@ ;;;; Created at: Sun Oct 22 00:22:43 2000 ;;;; Distribution: See the accompanying file COPYING. ;;;; -;;;; $Id: image.lisp,v 1.85 2004/12/13 11:22:50 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.86 2004/12/15 13:58:08 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------ @@ -847,6 +847,7 @@ *image*) (defun set-file-position (stream position &optional who) + (declare (ignore who)) (or (ignore-errors (file-position stream position)) (let* ((end (file-position stream :end)) (diff (- position end)))