ilisp-5.12.0 + gcl hang

Hi,

I've tested ilisp-5.12.0 with xemacs and emacs, using gcl as the
inferior lisp. Trouble in both cases.

Under xemacs, it gets as far as "Started initializing ILISP" and hangs,
running the cpu usage to 90%. Xemacs is unresponsive to signals.
Rebuilding for emacs just gives a segfault.

The behavior is the same for gcl-2.4.3 and the cvs head (sometimes
called gcl-2.5.0). The xemacs version is 21.4.8. The test version of
emacs is 20.5.1. The OS is RedHat linux 6.2.

I'd be happy to look into what is going wrong in gcl, but could use some
hints on where to start.

If it is helpful, below is a backtrace from the killed xemacs process:

Lisp backtrace follows:

  # (unwind-protect ...)
  accept-process-output()
  # bind (sync forcep waitp)
  ilisp-init(t)
  # bind (handler and-go status message string)
  ilisp-send("(setq *default-pathname-defaults* (parse-namestring
\"/root/\"))" "Set *gcl*'s directory to /root/" dir)
  # bind (directory buffer)
  default-directory-lisp(#<buffer "*scratch*">)
  (lambda nil (default-directory-lisp ilisp-last-buffer))()
  run-hooks((lambda nil (default-directory-lisp ilisp-last-buffer)))
  (lambda nil (ilisp-init nil nil t) (run-hooks (quote
ilisp-init-hook)))()
  run-hooks((lambda nil (ilisp-init nil nil t) (run-hooks (quote
ilisp-init-hook))))
  #<compiled-function nil "...(4)" [run-hooks ilisp-init-hook-local]
2>()
  # bind (init running prompt results send process)
  comint-dispatch-send(#<process "gcl" pid 1308 state:run>)
  byte-code("..." [messagep comint-fix-error no-insert match
comint-send-queue old-result t nil fix "Fixing error" 0 string-match
"Done" comint-insert comint-dispatch-send running process error handler
sync wait-p comint-end-queue result line] 12)
  # bind (error handler output is-prompt last sync wait-p message
no-insert old-result result line old-prompt running handler messagep
wait-p no-insert send match-data comint-original-buffer window
inhibit-quit output process)
  comint-process-filter(#<process "gcl" pid 1308 state:run> "\n>")
  # (condition-case ... . error)
  # bind (inhibit-quit)
  # (unwind-protect ...)
  sleep-for(3)
  # bind (start names process-connection-type args program dialect setup
name)
  ilisp("gcl" setup-gcl)
  # bind (setup program buffer)
  ilisp-start-dialect("gcl" nil setup-gcl)
  # bind (program buffer)
  #<compiled-function (&optional buffer program) "...(13)" [gcl-program
ilisp-program program buffer ilisp-start-dialect "gcl" setup-gcl] 4
("/usr/local/lib/xemacs/xemacs-packages/lisp/ilisp/ilisp-kcl.elc" .
4871) (list nil nil)>(nil nil)
  call-interactively(gcl)
  command-execute(gcl t)
  # bind (_execute_command_keys_ _execute_command_name_ prefix-arg)
  execute-extended-command(nil)
  # bind (command-debug-status)
  call-interactively(execute-extended-command)
  # (condition-case ... . error)
  # (catch top-level ...)
Terminated



Thanks for any pointers.

Best Wishes,
Greg


-

Gregory Wright
Chief Technical Officer
PacketStorm Communications, Inc.
20 Meridian Road
Eatontown, New Jersey 07724

1 732 544-2434 ext. 206
1 732 544-2437 [fax]
[email protected]



_______________________________________________________________

Don't miss the 2002 Sprint PCS Application Developer's Conference
August 25-28 in Las Vegas - http://devcon.sprintpcs.com/adp/index.cfm?source=osdntextlink