[movitz-cvs] CVS update: movitz/losp/x86-pc/textmode.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/x86-pc
In directory common-lisp.net:/tmp/cvs-serv10906

Modified Files:
	textmode.lisp 
Log Message:
Tweaked textmode-scroll-down.

Date: Thu Jul 29 05:48:35 2004
Author: ffjeld

Index: movitz/losp/x86-pc/textmode.lisp
diff -u movitz/losp/x86-pc/textmode.lisp:1.8 movitz/losp/x86-pc/textmode.lisp:1.9
--- movitz/losp/x86-pc/textmode.lisp:1.8	Mon Jul 12 02:12:40 2004
+++ movitz/losp/x86-pc/textmode.lisp	Thu Jul 29 05:48:35 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Thu Nov  9 15:38:56 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: textmode.lisp,v 1.8 2004/07/12 09:12:40 ffjeld Exp $
+;;;; $Id: textmode.lisp,v 1.9 2004/07/29 12:48:35 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -127,10 +127,11 @@
   (declare (special muerte.lib::*scroll-offset*))
   (incf muerte.lib::*scroll-offset*)
   (loop with stride = (* 2 *screen-stride*)
-      for y below *screen-height*
+      for y below (1- *screen-height*)
       as src from (+ *screen* stride) by stride
       as dst from *screen* by stride
-      do (textmode-copy-line dst src *screen-width*))
+      do (textmode-copy-line dst src *screen-width*)
+      finally (textmode-clear-line 0 (1- *screen-height*)))
   (signal 'newline))
 
 (defun textmode-clear-line (from-column line)