Update of /project/movitz/cvsroot/movitz/losp/muerte In directory common-lisp.net:/tmp/cvs-serv5571
Modified Files: arithmetic-macros.lisp Log Message: Added (deftype number).
Date: Sun Sep 18 16:24:01 2005 Author: ffjeld
Index: movitz/losp/muerte/arithmetic-macros.lisp diff -u movitz/losp/muerte/arithmetic-macros.lisp:1.11 movitz/losp/muerte/arithmetic-macros.lisp:1.12 --- movitz/losp/muerte/arithmetic-macros.lisp:1.11 Wed Aug 24 09:31:34 2005 +++ movitz/losp/muerte/arithmetic-macros.lisp Sun Sep 18 16:23:48 2005 @@ -10,7 +10,7 @@ ;;;; Author: Frode Vatvedt Fjeld frodef@acm.org ;;;; Created at: Sat Jul 17 13:42:46 2004 ;;;; -;;;; $Id: arithmetic-macros.lisp,v 1.11 2005/08/24 07:31:34 ffjeld Exp $ +;;;; $Id: arithmetic-macros.lisp,v 1.12 2005/09/18 14:23:48 ffjeld Exp $ ;;;; ;;;;------------------------------------------------------------------
@@ -606,7 +606,9 @@ (deftype real (&optional (lower-limit '*) (upper-limit '*)) `(or (integer ,lower-limit ,upper-limit) (rational ,lower-limit ,upper-limit))) - + +(deftype number (&optional (lower-limit '*) (upper-limit '*)) + `(real ,lower-limit ,upper-limit))
(define-simple-typep (bit bitp) (x) (or (eq x 0) (eq x 1)))