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)