[mcclim-cvs] CVS update: mcclim/Apps/Listener/listener.lisp - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

20 Dec 2004

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)

    