[movitz-cvs] CVS movitz/losp/muerte - movitz-cvs@common-lisp.net - mailman3.common-lisp.net

20 Mar 2008

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory clnet:/tmp/cvs-serv27833
Modified Files:
    typep.lisp 
Log Message:
Add a silly deftype float.

--- /project/movitz/cvsroot/movitz/losp/muerte/typep.lisp	2008/03/15 20:58:24	1.55
+++ /project/movitz/cvsroot/movitz/losp/muerte/typep.lisp	2008/03/20 22:22:40	1.56
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Dec  8 11:07:53 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: typep.lisp,v 1.55 2008/03/15 20:58:24 ffjeld Exp $
+;;;; $Id: typep.lisp,v 1.56 2008/03/20 22:22:40 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
@@ -698,6 +698,9 @@
 (deftype bit ()
   '(integer 0 1))
+(deftype float ()
+  'real)
+
 (defun type-of (x)
   (class-name (class-of x)))

    