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

Modified Files: image.lisp Log Message: Fixed call to make-compiled-funobj.

Date: Tue Feb 3 14:18:43 2004 Author: ffjeld

Index: movitz/image.lisp diff -u movitz/image.lisp:1.6 movitz/image.lisp:1.7 --- movitz/image.lisp:1.6 Tue Feb 3 13:02:15 2004 +++ movitz/image.lisp Tue Feb 3 14:18: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.6 2004/02/03 18:02:15 ffjeld Exp $ +;;;; $Id: image.lisp,v 1.7 2004/02/03 19:18:43 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------

@@ -1469,7 +1469,7 @@

,@toplevel-code (muerte::halt-cpu)) - nil t))) + nil t nil)))

(defun mkasm-write-word-eax-ebx () (let ((loop-label (make-symbol "write-word-loop"))