[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-serv12960

Modified Files:
	los0.lisp 
Log Message:
sync.

Date: Tue Feb 10 18:38:20 2004
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.2 movitz/losp/los0.lisp:1.3
--- movitz/losp/los0.lisp:1.2	Mon Jan 19 06:23:43 2004
+++ movitz/losp/los0.lisp	Tue Feb 10 18:38:20 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.2 2004/01/19 11:23:43 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.3 2004/02/10 23:38:20 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -19,7 +19,7 @@
 (require :x86-pc/all)
 (require :x86-pc/io-space)
 (require :x86-pc/ne2k)
-(require :x86-pc/floppy)
+;; (require :x86-pc/floppy)
 
 (require :lib/readline)
 (require :lib/toplevel)
@@ -428,14 +428,13 @@
 
 
 
-
-#+ignore
+s#+ignore
 (defun test-ncase (x y z)
   (numargs-case
    (1 (x) (values x 'one))
    (2 (x y) (values (+ x y) 'one 'two))
    (3 (x y z) (values (+ x y z) 'one 'two 'three))
-   (t (&rest args) (declare (ignore args)) 27)))
+   (t (args) (declare (ignore args)) 27)))
 
 #+ignore
 (defun xbar ()
@@ -488,8 +487,8 @@
   (declare (ignore f))
   (print "Cooking some food."))
 
-(defun foo (x)
-  (funcall (cdr x) 'abba))
+(defun foo (x &optional (y nil yp))
+  (format t "~@{ ~A~}" yp))
 
 (defun test-pie (n pie)
   (dotimes (i n)