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

Modified Files:
	los0.lisp 
Log Message:
Starting to add some bignum support.

Date: Mon May 24 10:58:39 2004
Author: ffjeld

Index: movitz/losp/los0.lisp
diff -u movitz/losp/los0.lisp:1.13 movitz/losp/los0.lisp:1.14
--- movitz/losp/los0.lisp:1.13	Fri Apr 23 11:04:07 2004
+++ movitz/losp/los0.lisp	Mon May 24 10:58:39 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.13 2004/04/23 15:04:07 ffjeld Exp $
+;;;; $Id: los0.lisp,v 1.14 2004/05/24 14:58:39 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -262,6 +262,24 @@
    exit
     (warn "exited: ~S" c)))
 
+
+(defun test-bignum ()
+  123456789123456)
+
+(defun ff32 ()
+  #xffffffff)
+
+(defun one32 ()
+  #x100000000)
+
+(defun test-nbignum ()
+  -123456789123456)
+
+(defun gt5 (x)
+  (<= x 5))
+
+(defun xplus (x)
+  (typep x '(integer 0 *)))
 
 (defstruct xxx
   x y (z 'init-z))