[mcclim-cvs] CVS mcclim/Apps/Listener

[afuchs]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory clnet:/tmp/cvs-serv31467/Apps/Listener

Modified Files:
	listener.lisp 
Log Message:
Apply Douglas Crosher's patch fixing the listener for CMUCL:

* Revert function 'dynamic-space-usage to 'dynamic-usage.


--- /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp	2006/03/15 22:56:54	1.23
+++ /project/mcclim/cvsroot/mcclim/Apps/Listener/listener.lisp	2006/03/22 09:14:30	1.24
@@ -78,7 +78,7 @@
 		       #-(or allegro cmu scl) (getenv "USER")
                        "luser"))  ; sorry..
          (sitename (machine-instance))
-         (memusage #+(or cmu scl) (lisp::dynamic-space-usage)
+         (memusage #+(or cmu scl) (lisp::dynamic-usage)
                    #+sbcl  (sb-kernel:dynamic-usage)
                    #+lispworks (getf (system:room-values) :total-allocated)
 		   #+openmcl (+ (ccl::%usedbytes) (ccl::%freebytes))