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)))))
