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

6 Dec 2005

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)

    