[slime-cvs] CVS update: slime/metering.lisp

[Alan Ruttenberg]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv8458/slime

Modified Files:
	metering.lisp 
Log Message:
openmcl

Date: Mon Sep 13 07:35:14 2004
Author: aruttenberg

Index: slime/metering.lisp
diff -u slime/metering.lisp:1.1 slime/metering.lisp:1.2
--- slime/metering.lisp:1.1	Wed Feb 18 08:25:38 2004
+++ slime/metering.lisp	Mon Sep 13 07:35:14 2004
@@ -419,9 +419,9 @@
 
 #+(and :excl :allegro-v4.0)
 (cltl1:provide "monitor")
-#+(and :excl :allegro-version>= (version>= 4 1))
+#+(and :excl :allegro-version>= (version>= 4 1) :openmcl)
 (provide "monitor")
-#+:mcl
+#+(and :mcl (not :openmcl))
 (ccl:provide "monitor")
 #+(and :cltl2
        (not (or (and :excl (or :allegro-v4.0 (and :allegro-version>=