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

[Frode Vatvedt Fjeld]

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

Modified Files:
	typep.lisp 
Log Message:
Changed the implementation of ratios from a defstruct to a built-in
structure.

Date: Sat Jul 31 16:35:14 2004
Author: ffjeld

Index: movitz/losp/muerte/typep.lisp
diff -u movitz/losp/muerte/typep.lisp:1.35 movitz/losp/muerte/typep.lisp:1.36
--- movitz/losp/muerte/typep.lisp:1.35	Wed Jul 28 07:50:26 2004
+++ movitz/losp/muerte/typep.lisp	Sat Jul 31 16:35:13 2004
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  8 11:07:53 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: typep.lisp,v 1.35 2004/07/28 14:50:26 ffjeld Exp $
+;;;; $Id: typep.lisp,v 1.36 2004/07/31 23:35:13 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -179,6 +179,8 @@
 		 (make-other-typep :bignum 0))
 		((negative-bignum)
 		 (make-other-typep :bignum #xff))
+		((ratio)
+		 (make-other-typep :ratio))
 		((integer)
 		 `(with-inline-assembly-case ()
 		    (do-case (t :boolean-zf=1 :labels (done))
@@ -556,12 +558,11 @@
 (define-simple-typep (bignum bignump) (x)
   (typep x 'bignum))
 
+(define-simple-typep (rational rationalp) (x)
+  (typep x '(or fixnum bignum ratio)))
+
 (define-simple-typep (number numberp) (x)
-  "Currently, only integers and ratios are supported."
-  (or (typep x 'fixnum)
-      (and (typep x 'tag6)
-	   (or (typep x 'bignum)
-	       (ratio-p x)))))
+  (typep x 'rational))
 
 (define-simple-typep (function functionp) (x)
   (typep x 'function))