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)