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

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz
In directory common-lisp.net:/tmp/cvs-serv30270

Modified Files:
	image.lisp 
Log Message:
Fixed movitz-word-and-print which hasn't been working for a while.

Date: Tue Jun 29 16:16:43 2004
Author: ffjeld

Index: movitz/image.lisp
diff -u movitz/image.lisp:1.39 movitz/image.lisp:1.40
--- movitz/image.lisp:1.39	Thu Jun 10 12:31:06 2004
+++ movitz/image.lisp	Tue Jun 29 16:16:43 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.39 2004/06/10 19:31:06 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.40 2004/06/29 23:16:43 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -730,8 +730,8 @@
   (assert (eq type 'word))
   (movitz-word-by-image *image* word))
 
-(defun movitz-word-and-print (word)
-  (movitz-print (movitz-word word)))
+(defun movitz-word-and-print (word &optional (type 'word))
+  (movitz-print (movitz-word word type)))
 
 (defmethod movitz-word-by-image ((image symbolic-image) word)
   (case (extract-tag word)