Update of /project/mcclim/cvsroot/mcclim/Apps/Listener In directory common-lisp.net:/tmp/cvs-serv5288
Modified Files: listener.lisp Log Message: Cheap hack to get USER env var in Allegro CL. Date: Tue Dec 6 17:21:12 2005 Author: rgoldman
Index: mcclim/Apps/Listener/listener.lisp diff -u mcclim/Apps/Listener/listener.lisp:1.21 mcclim/Apps/Listener/listener.lisp:1.22 --- mcclim/Apps/Listener/listener.lisp:1.21 Tue Jan 11 06:26:26 2005 +++ mcclim/Apps/Listener/listener.lisp Tue Dec 6 17:21:11 2005 @@ -72,7 +72,8 @@ (declare (ignore frame)) (let* ((*standard-output* pane) (username (or #+cmu (cdr (assoc :user ext:*environment-list*)) - #-cmu (getenv "USER") + #+allegro (sys:getenv "USER") + #-(or allegro cmu) (getenv "USER") "luser")) ; sorry.. (sitename (machine-instance)) (memusage #+cmu (lisp::dynamic-usage)