On Thu, 17 Jun 2004, Eric Marsden wrote:

If it seems important, I'm using cmucl 18e on Mandrake 10 with Linux 
2.6.5. The cmucl tarballs were untarred under /usr/local.

> >>>>> "mt" == Marcin Tustin <[EMAIL PROTECTED]> writes:
> 
>   mt> Has anyone ever managed to get CLM or CLX working under linux?
> 
>   precisely what problems have you had with CLX?

        That it does nothing. Specifically, starting Hemlock does nothing 
other print an error message. Entire cmucl output follows:
-------
[EMAIL PROTECTED] /home/marcin/motifbuilddir/motif]$ lisp
CMU Common Lisp 18e, running on rosethorn
With core: /usr/local/lib/cmucl/lib/lisp.core
Dumped on: Thu, 2003-04-03 14:47:12+01:00 on orion
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
    Python 1.1, target Intel x86
    CLOS 18e (based on PCL September 16 92 PCL (f))
* (progn (require :clx) (require :hemlock))

; Loading #p"/usr/local/lib/cmucl/lib/subsystems/clx-library.x86f".
; [GC threshold exceeded with 12,009,680 bytes in use.  Commencing GC.]
; [GC completed with 2,813,184 bytes retained and 9,196,496 bytes freed.]
; [GC will next occur when at least 14,813,184 bytes are in use.]
; Loading #p"/usr/local/lib/cmucl/lib/subsystems/hemlock-library.x86f".
; [GC threshold exceeded with 14,823,752 bytes in use.  Commencing GC.]
; [GC completed with 6,629,248 bytes retained and 8,194,504 bytes freed.]
; [GC will next occur when at least 18,629,248 bytes are in use.]
T
* (ed)

Connection failure to X11.0 server unix display 0: No protocol specified

Restarts:
  0: [ABORT] Return to Top-Level.

Debug  (type H for help)

(XLIB::X-ERROR XLIB:CONNECTION-FAILURE :MAJOR-VERSION 11 :MINOR-VERSION 
...)
Source: Error finding source: 
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer 
exists:
  target:clx/dependent.lisp.
0] 
------------
   
>   mt> Whenever I've tried to use CLM over the last few years (including just 
>   mt> now), I get a message that a server is being spawned, even if I have a 
>   mt> server running (with or without -global), and nothing happens. At all.
> 
>   try starting up your motifd manually, with a commandline such as
> [snip]

        Done. Output follows below. Nothing appears in X. Strace output 
from motifd follows after cmucl output.
-----------------
[EMAIL PROTECTED] /home/marcin/motifbuilddir/motif]$ lisp
CMU Common Lisp 18e, running on rosethorn
With core: /usr/local/lib/cmucl/lib/lisp.core
Dumped on: Thu, 2003-04-03 14:47:12+01:00 on orion
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
    Python 1.1, target Intel x86
    CLOS 18e (based on PCL September 16 92 PCL (f))
*  (require :clm)

; Loading #p"/usr/local/lib/cmucl/lib/subsystems/clm-library.x86f".
;; Loading #p"/usr/local/lib/cmucl/lib/subsystems/clx-library.x86f".
; [GC threshold exceeded with 12,016,784 bytes in use.  Commencing GC.]
; [GC completed with 2,828,704 bytes retained and 9,188,080 bytes freed.]
; [GC will next occur when at least 14,828,704 bytes are in use.]
T
*  (setf toolkit::*default-server-host* "localhost")

"localhost"
*   (inspect *package*)
Invoking debugger...
Accepting client on Inet socket.

Connection failure to X11.0 server unix display 0: No protocol specified

Restarts:
  0: [ABORT] Return to Top-Level.

Debug  (type H for help)

(XLIB::X-ERROR XLIB:CONNECTION-FAILURE :MAJOR-VERSION 11 :MINOR-VERSION 
...)
Source: Error finding source: 
Error in function DEBUG::GET-FILE-TOP-LEVEL-FORM:  Source file no longer 
exists:
  target:clx/dependent.lisp.
0] Accepted client on fd 4
Accepting client on Inet socket.
Accepted client on fd 4

----------------Strace output follows (from motifd)

execve("/usr/local/lib/cmucl/lib/motifd", 
["/usr/local/lib/cmucl/lib/motifd", "-trace", "-nounix"], [/* 64 vars */]) 
= 0
fcntl(0, F_GETFD)                       = 0
fcntl(1, F_GETFD)                       = 0
fcntl(2, F_GETFD)                       = 0
getuid()                                = 0
getgid()                                = 0
brk(0)                                  = 0x8227000
brk(0x8227020)                          = 0x8227020
brk(0x8228000)                          = 0x8228000
getpid()                                = 22405
getuid()                                = 0
getuid()                                = 0
fstat(1, {st_mode=S_IFCHR|0620, st_rdev=makedev(136, 2), ...}) = 0
old_mmap(NULL, 4096, PROT_READ|PROT_WRITE, MAP_PRIVATE|MAP_ANONYMOUS, -1, 
0) = 0x40000000
ioctl(1, SNDCTL_TMR_TIMEBASE or TCGETS, {B38400 opost isig icanon echo 
...}) = 0
write(1, "Starting server:\n", 17)      = 17
write(1, "   will_fork  = True\n", 21)  = 21
write(1, "   will_trace = True\n", 21)  = 21
write(1, "   port       = 8000\n", 21)  = 21
write(1, "   No Unix domain socket created"..., 34) = 34
socket(PF_INET, SOCK_STREAM, IPPROTO_IP) = 3
bind(3, {sa_family=AF_INET, sin_port=htons(8000), 
sin_addr=inet_addr("0.0.0.0")}, 16) = 0
listen(3, 5)                            = 0
rt_sigaction(SIGHUP, {0x804820c, [], SA_RESTORER|SA_RESTART, 0x817d578}, 
{SIG_DFL}, 8) = 0
rt_sigaction(SIGINT, {0x804820c, [], SA_RESTORER|SA_RESTART, 0x817d578}, 
{SIG_DFL}, 8) = 0
rt_sigaction(SIGQUIT, {0x804820c, [], SA_RESTORER|SA_RESTART, 0x817d578}, 
{SIG_DFL}, 8) = 0
rt_sigaction(SIGCHLD, {0x80481c0, [], SA_RESTORER|SA_RESTART, 0x817d578}, 
{SIG_DFL}, 8) = 0
write(1, "Waiting for connection.\n", 24) = 24
select(4, [3], NULL, NULL, NULL)        = ? ERESTARTNOHAND (To be 
restarted)
--- SIGCONT (Continued) @ 0 (0) ---
select(4, [3], NULL, NULL, NULL)        = 1 (in [3])
write(1, "Accepting client on Inet socket."..., 33) = 33
accept(3, {sa_family=AF_INET, sin_port=htons(33626), 
sin_addr=inet_addr("127.0.0.1")}, [16]) = 4
write(1, "Accepted client on fd 4\n", 24) = 24
fork()                                  = 22407
close(4)                                = 0
select(4, [3], NULL, NULL, NULL)        = 1 (in [3])
write(1, "Accepting client on Inet socket."..., 33) = 33
accept(3, {sa_family=AF_INET, sin_port=htons(33627), 
sin_addr=inet_addr("127.0.0.1")}, [16]) = 4
write(1, "Accepted client on fd 4\n", 24) = 24
fork()                                  = 22408
close(4)                                = 0
select(4, [3], NULL, NULL, NULL)        = ? ERESTARTNOHAND (To be 
restarted)
--- SIGCHLD (Child exited) @ 0 (0) ---
wait4(-1, [WIFEXITED(s) && WEXITSTATUS(s) == 255], WNOHANG, NULL) = 22407
sigreturn()                             = ? (mask now [])
select(4, [3], NULL, NULL, NULL



Reply via email to