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

[Frode Vatvedt Fjeld]

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 @@
 
 			     , at toplevel-code
 			     (muerte::halt-cpu))
-			  nil t)))
+			  nil t nil)))
 
 (defun mkasm-write-word-eax-ebx ()
   (let ((loop-label (make-symbol "write-word-loop"))