Update of /project/movitz/cvsroot/movitz/losp/lib In directory common-lisp.net:/tmp/cvs-serv10976
Modified Files: console.lisp Log Message: Add newline signal to scroll-down.
Date: Mon Jul 12 02:11:56 2004 Author: ffjeld
Index: movitz/losp/lib/console.lisp diff -u movitz/losp/lib/console.lisp:1.4 movitz/losp/lib/console.lisp:1.5 --- movitz/losp/lib/console.lisp:1.4 Mon Jan 19 03:23:44 2004 +++ movitz/losp/lib/console.lisp Mon Jul 12 02:11:56 2004 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Thu Aug 14 18:14:16 2003 ;;;; -;;;; $Id: console.lisp,v 1.4 2004/01/19 11:23:44 ffjeld Exp $ +;;;; $Id: console.lisp,v 1.5 2004/07/12 09:11:56 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -213,6 +213,7 @@ (setf (console-char console x y) (console-char console x (1+ y))))) (clear-line console 0 (1- (console-height console))) + (signal 'muerte::newline) nil)
(defmethod scroll-down :after (console)