[movitz-cvs] CVS update: movitz/image.lisp

[Frode Vatvedt Fjeld]

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)))