[movitz-cvs] CVS update: movitz/losp/los0.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	los0.lisp 
Log Message:
*** empty log message ***
Date: Mon Dec 13 12:27:59 2004
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.33 movitz/losp/los0.lisp:1.34
--- movitz/losp/los0.lisp:1.33	Fri Nov 26 15:59:59 2004
+++ movitz/losp/los0.lisp	Mon Dec 13 12:27:58 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  1 18:08:32 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: los0.lisp,v 1.33 2004/11/26 14:59:59 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.34 2004/12/13 11:27:58 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -23,7 +23,7 @@
 
 (require :lib/readline)
 (require :lib/toplevel)
-(require :lib/net/ip6)
+;; (require :lib/net/ip6)
 (require :lib/net/ip4)
 (require :lib/repl)
 
@@ -37,7 +37,7 @@
 	#:muerte.readline
 	#:muerte.toplevel
 	#:muerte.ethernet
-	#:muerte.ip6
+;; 	#:muerte.ip6
 	#:muerte.ip4
 	#:muerte.mop
 	#+ignore muerte.x86-pc.serial))
@@ -624,7 +624,7 @@
 
 
 
-s#+ignore
+#+ignore
 (defun test-ncase (x y z)
   (numargs-case
    (1 (x) (values x 'one))
@@ -931,7 +931,7 @@
 			 (prog ()
 			  loop
 			   (case (muerte.x86-pc.keyboard:poll-char)
-			     ((#\esc)
+			     ((#\escape)
 			      (break "Console pager"))
 			     ((#\n #\N)	; No more
 			      (return-from paging (values)))
@@ -1151,7 +1151,7 @@
 (defparameter *timer-stack* nil)
 (defparameter *timer-prevstack* nil)
 (defparameter *timer-esi* nil)
-(defparameter *timer-frame* #100())
+(defparameter *timer-frame* #100(nil))
 (defparameter *timer-base* 2)
 (defparameter *timer-variation* 1000)
 
@@ -1281,7 +1281,7 @@
 				    :quiet t
 				    :mac (muerte.ip4::polling-arp :129.242.16.1
 								  (lambda ()
-								    (eql #\esc (muerte.x86-pc.keyboard:poll-char)))))))
+								    (eql #\escape (muerte.x86-pc.keyboard:poll-char)))))))
 
 (defun mumbojumbo (x)
   (with-inline-assembly (:returns :eax)
@@ -1436,7 +1436,7 @@
 	 (when (receive outside buffer)
 	   (transmit inside buffer))
 	 (case (muerte.x86-pc.keyboard:poll-char)
-	   (#\esc (break "Under the bridge."))
+	   (#\escape (break "Under the bridge."))
 	   (#\e (error "this is an error!"))))))))