Subject: common-lisp-controller: UID not exported?
From: "Trent Buck" <[email-masked]>
To: Debian Bug Tracking System <[email-masked]>
Date: Sat, 07 Apr 2007 09:51:58 +1000

Package: common-lisp-controller
Version: 6.9
Severity: important

In my normal shell environment, I tried to use ECL's ASDF to load a
package:

| twb@rocinante[Desktop]$ ecl -eval "(require 'clx)" -eval "(asdf:oos 'asdf:load-op :stumpwm)" -eval "(in-package :stumpwm)"
| ;;; Loading #P"/usr/lib/ecl/cmp.fas"
| ;;; Loading #P"/usr/lib/ecl/sysfun.lsp"
| ;;; Loading #P"/usr/lib/ecl/clx.fas"
| ; loading system definition from /home/twb/.clc/systems/stumpwm.asd into
| ; #<ASDF0 package>
| ;;; Loading "/home/twb/.clc/systems/stumpwm.asd"
| ; registering #<SYSTEM :STUMPWM 13833776> as STUMPWM
| ; $ umask 077 && echo $UID > /tmp/clc-9810
| ; $ rm /tmp/clc-9810
| An error occurred during initialization:
| Unable to find out user ID.

The above "echo $UID" command is part of the common-lisp-controller
source, so I'm filing this bug against it.

Exporting UID fixes the problem:

| twb@rocinante[Desktop]$ echo $UID
| 1000
| twb@rocinante[Desktop]$ export UID
| twb@rocinante[Desktop]$ ecl -eval "(require 'clx)" -eval "(asdf:oos 'asdf:load-op :stumpwm)" -eval "(in-package :stumpwm)"
| ;;; Loading #P"/usr/lib/ecl/cmp.fas"
| ;;; Loading #P"/usr/lib/ecl/sysfun.lsp"
| ;;; Loading #P"/usr/lib/ecl/clx.fas"
| ; loading system definition from /home/twb/.clc/systems/stumpwm.asd into
| ; #<ASDF0 package>
| ;;; Loading "/home/twb/.clc/systems/stumpwm.asd"
| ; registering #<SYSTEM :STUMPWM 13833776> as STUMPWM
| ; $ umask 077 && echo $UID > /tmp/clc-48910
| ; $ rm /tmp/clc-48910
| ; $ perl -W -e 'use File::stat; use User::pwent;
| [BORING STUFF ELIDED]
| STUMPWM>

For some lisp systems, CLC assumes that UID is set in the process
environment.  Is this a valid assumption?  If so, my sh environment is
broken somehow; please close this bug.

For reference, here is my complete environment within ECL:

| twb@rocinante[Desktop]$ ecl
| ;;; Loading #P"/usr/lib/ecl/cmp.fas"
| ;;; Loading #P"/usr/lib/ecl/sysfun.lsp"
| ECL (Embeddable Common-Lisp) 0.9i
| Copyright (C) 1984 Taiichi Yuasa and Masami Hagiya
| Copyright (C) 1993 Giuseppe Attardi
| Copyright (C) 2000 Juan J. Garcia-Ripoll
| ECL is free software, and you are welcome to redistribute it
| under certain conditions; see file 'Copyright' for details.
| Type :h for Help.  Broken at EVAL.
| > (require 'asdf)
| NIL
| > (in-package :asdf)
| #<"ASDF" package>
| ASDF> (run-shell-command "env >/tmp/xyzzy")
| 0
| ASDF>
| twb@rocinante[Desktop]$ cat /tmp/xyzzy
| ALTERNATE_EDITOR=emacs-snapshot-nox
| no_proxy=127.0.0.1,lan,apt-proxy,rocinante,fs,proxy,malambruno
| USER=twb
| MAIL=/var/mail/twb
| SSH_AGENT_PID=3604
| SHLVL=2
| HOME=/home/twb
| OLDPWD=/home/twb/Desktop
| HUSHLOGIN=FALSE
| DBUS_SESSION_BUS_ADDRESS=unix:abstract=/tmp/dbus-Wjib4MJZdy,guid=56ff6b0113d419fa08df7000461618ad
| VISUAL=emacs-snapshot-nox
| COLORTERM=rxvt
| LOGNAME=twb
| _=/usr/bin/ecl
| http_proxy=http://proxy:3128/
| WINDOWID=10485764
| COLORFGBG=15;0
| TERM=screen-256color
| LC_COLLATE=C
| EMAIL=[email-masked]
| PATH=/home/twb/Public/mirror/scripts:/home/twb/local/bin:/usr/local/bin:/usr/bin:/bin:/usr/games
| DISPLAY=:0.0
| LC_DATE=en_AU.UTF-8
| LANG=en_AU.UTF-8
| STY=3621.pts-0.rocinante
| XAUTHORITY=/home/twb/.Xauthority
| SSH_AUTH_SOCK=/tmp/ssh-YqPEPL3575/agent.3575
| SHELL=/bin/bash
| WINDOW=4
| PWD=/home/twb/Desktop
| TERMCAP=SC|screen-256color|VT 100/ANSI X3.64 virtual terminal:\
|         :DO=\E[%dB:LE=\E[%dD:RI=\E[%dC:UP=\E[%dA:bs:bt=\E[Z:\
|         :cd=\E[J:ce=\E[K:cl=\E[H\E[J:cm=\E[%i%d;%dH:ct=\E[3g:\
|         :do=^J:nd=\E[C:pt:rc=\E8:rs=\Ec:sc=\E7:st=\EH:up=\EM:\
|         :le=^H:bl=^G:cr=^M:it#8:ho=\E[H:nw=\EE:ta=^I:is=\E)0:\
|         :li#92:co#266:am:xn:xv:LP:sr=\EM:al=\E[L:AL=\E[%dL:\
|         :cs=\E[%i%d;%dr:dl=\E[M:DL=\E[%dM:dc=\E[P:DC=\E[%dP:\
|         :im=\E[4h:ei=\E[4l:mi:IC=\E[%d@:ks=\E[?1h\E=:\
|         :ke=\E[?1l\E>:vi=\E[?25l:ve=\E[34h\E[?25h:vs=\E[34l:\
|         :ti=\E[?1049h:te=\E[?1049l:us=\E[4m:ue=\E[24m:so=\E[3m:\
|         :se=\E[23m:mb=\E[5m:md=\E[1m:mr=\E[7m:me=\E[m:ms:\
|         :Co#8:pa#64:AF=\E[3%dm:AB=\E[4%dm:op=\E[39;49m:AX:\
|         :vb=\Eg:G0:as=\E(0:ae=\E(B:\
|         :ac=\140\140aaffggjjkkllmmnnooppqqrrssttuuvvwwxxyyzz{{||}}~~..--++,,hhII00:\
|         :po=\E[5i:pf=\E[4i:k0=\E[10~:k1=\EOP:k2=\EOQ:k3=\EOR:\
|         :k4=\EOS:k5=\E[15~:k6=\E[17~:k7=\E[18~:k8=\E[19~:\
|         :k9=\E[20~:k;=\E[21~:F1=\E[23~:F2=\E[24~:F3=\E[25~:\
|         :F4=\E[26~:F5=\E[28~:F6=\E[29~:F7=\E[31~:F8=\E[32~:\
|         :F9=\E[33~:FA=\E[34~:kb=:K1=\EOw:K2=\EOu:K3=\EOy:\
|         :K4=\EOq:K5=\EOs:kB=\E[Z:kE=\E[8\^:*4=\E[3$:*7=\E[8$:\
|         :#2=\E[7$:#3=\E2$:#4=\E[d:%c=\E[6$:%e=\E[5$:%i=\E[c:\
|         :kh=\E[1~:@1=\E[1~:kH=\E[4~:@7=\E[4~:kN=\E[6~:kP=\E[5~:\
|         :kI=\E[2~:kD=\E[3~:ku=\EOA:kd=\EOB:kr=\EOC:kl=\EOD:km:
| EDITOR=emacs-snapshot-nox
| twb@rocinante[Desktop]$

-- System Information:
Debian Release: 4.0
  APT prefers testing
  APT policy: (500, 'testing')
Architecture: amd64 (x86_64)
Shell:  /bin/sh linked to /bin/dash
Kernel: Linux 2.6.18-4-amd64
Locale: LANG=en_AU.UTF-8, LC_CTYPE=en_AU.UTF-8 (charmap=UTF-8)

Versions of packages common-lisp-controller depends on:
ii  bash                          3.1dfsg-8  The GNU Bourne Again SHell
ii  cl-asdf                       1.101-1    Another System Definition Facility
ii  debconf [debconf-2.0]         1.5.11     Debian configuration management sy
ii  debianutils                   2.17       Miscellaneous utilities specific t
ii  perl                          5.8.8-7    Larry Wall's Practical Extraction 
ii  realpath                      1.10       Return the canonicalized absolute 

common-lisp-controller recommends no packages.

-- debconf information:
  common-lisp-controller/long-site-name: Site name not initialized
  common-lisp-controller/short-site-name: Unknown