[mcclim-cvs] CVS update: mcclim/Apps/Listener/listener.lisp

[Bruno Haible]

Update of /project/mcclim/cvsroot/mcclim/Apps/Listener
In directory common-lisp.net:/tmp/cvs-serv26441/Apps/Listener

Modified Files:
	listener.lisp 
Log Message:
(display-wholine): Add support for CLISP.

Date: Mon Dec 20 16:45:35 2004
Author: bhaible

Index: mcclim/Apps/Listener/listener.lisp
diff -u mcclim/Apps/Listener/listener.lisp:1.18 mcclim/Apps/Listener/listener.lisp:1.19
--- mcclim/Apps/Listener/listener.lisp:1.18	Mon Nov 15 08:07:26 2004
+++ mcclim/Apps/Listener/listener.lisp	Mon Dec 20 16:45:34 2004
@@ -64,7 +64,8 @@
                    #+sbcl  (sb-kernel:dynamic-usage)
                    #+lispworks (getf (system:room-values) :total-allocated)
 		   #+openmcl (+ (ccl::%usedbytes) (ccl::%freebytes))
-                   #-(or cmu sbcl lispworks openmcl) 0))
+                   #+clisp (values (sys::%room))
+                   #-(or cmu sbcl lispworks openmcl clisp) 0))
     (with-text-family (T :serif)
       (formatting-table (T :x-spacing '(3 :character))
         (formatting-row (T)