[movitz-cvs] CVS movitz

[ffjeld]

Update of /project/movitz/cvsroot/movitz
In directory clnet:/tmp/cvs-serv32157

Modified Files:
	image.lisp 
Log Message:
Remove useless assertion.


--- /project/movitz/cvsroot/movitz/image.lisp	2007/03/16 17:40:43	1.112
+++ /project/movitz/cvsroot/movitz/image.lisp	2007/04/01 18:18:26	1.113
@@ -9,7 +9,7 @@
 ;;;; Created at:    Sun Oct 22 00:22:43 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: image.lisp,v 1.112 2007/03/16 17:40:43 ffjeld Exp $
+;;;; $Id: image.lisp,v 1.113 2007/04/01 18:18:26 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -28,10 +28,7 @@
    (raw-scratch0			; A non-GC-root scratch register
     :binary-type lu32
     :initform 0)
-
-   
    (pointer-start :binary-type :label)
-
    (ret-trampoline
     :binary-type code-vector-word
     :map-binary-write 'movitz-intern-code-vector
@@ -836,7 +833,6 @@
   (or (ignore-errors (file-position stream position))
       (let* ((end (file-position stream :end))
 	     (diff (- position end)))
-	(assert (< 0 diff 10000))
 	(dotimes (i diff)
 	  (write-byte 0 stream))
 	(assert (= position (file-position stream)))))