[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv22802

Modified Files:
	ChangeLog metering.lisp 
Log Message:
* metering.lisp: Add deftypes for time-type and cons-type, which
are not defined in newer versions of CCL.

--- /project/slime/cvsroot/slime/ChangeLog	2008/08/22 21:15:00	1.1467
+++ /project/slime/cvsroot/slime/ChangeLog	2008/08/22 21:15:07	1.1468
@@ -1,3 +1,8 @@
+2008-08-22  Stas Boukarev <stassats at gmail.com>
+
+	* metering.lisp: Add deftypes for time-type and cons-type, which
+	are not defined in newer versions of CCL.
+
 2008-08-22  Stelian Ionescu <sionescu at common-lisp.net>
 
 	* swank-ecl.lisp: Add a few EVAL-WHENs to fix compilation.
--- /project/slime/cvsroot/slime/metering.lisp	2005/04/01 20:16:35	1.4
+++ /project/slime/cvsroot/slime/metering.lisp	2008/08/22 21:15:07	1.5
@@ -60,7 +60,7 @@
 ;;; 01-APR-05 lgorrie   Removed support for all Lisps except CLISP and OpenMCL.
 ;;;                     Purely to cut down on stale code (e.g. #+cltl2) in this
 ;;;                     version that is bundled with SLIME.
-;;;                     
+;;; 22-Aug-08 stas      Define TIME-TYPE for Clozure CL.
 ;;;
 
 ;;; ********************************
@@ -401,6 +401,11 @@
 
 (defconstant time-units-per-second internal-time-units-per-second)
 
+#+openmcl
+(progn
+ (deftype time-type () 'unsigned-byte)
+ (deftype consing-type () 'unsigned-byte))
+
 (defmacro get-time ()
   `(the time-type (get-internal-run-time)))