[Bese-devel] problem with detachtty
Daniel Patru
dpatru at gmail.com
Wed Apr 12 11:43:25 UTC 2006
UCW doesn't start on my machine when used with detachtty. However it starts
without it. In ucwctl, the start option says:
start)
install -d -m 755 $LOGROOT $RUNROOT
$DETACHTTY --dribble-file $LOGROOT/ucw.dribble \
--log-file $LOGROOT/ucw.detachtty \
--pid-file $RUNROOT/ucw.pid \
$RUNROOT/ucw.socket \
$CLLAUNCH -X $OPT_LISP $OPT_PATH NO_QUIT=yes -- "$STARTFILE"
;;
Running "ucwctl start && ucwctl attach" results in an error.
If I change ucwctl to:
start)
install -d -m 755 $LOGROOT $RUNROOT
$CLLAUNCH -X $OPT_LISP $OPT_PATH NO_QUIT=yes -- "$STARTFILE"
;;
"ucwctl start" runs fine, albeit dumps all the output to the terminal and
not to logfiles.
This seems to indicate that there's a problem with detachtty. It may be that
I just don't have the right version of detachtty. I have a debian clc
system. I installed the version from
http://uncommon-web.com/repos/detachttyusing "make; make install",
since "make deb" gave an error. Is there a
debian specific way to install detachtty? I also removed the old versions
of detachtty and attachtty from the path, so that the new patched versions
are used.
I attached the output of "ucwctl start && ucwctl attach". The relevant part
seems to indicate that swank can't output to *current-error-output*
(synonymous with *current-debug-io* and *current-terminal-io*):
Error during processing of --eval option
"(progn(set-dispatch-macro-character
#\\# #\\! #'(lambda(stream char arg)(declare(ignore char arg))(values
(read-line stream))))(load \"/usr/bin/cl-launch\" :verbose nil :print nil)
(funcall(intern(string :run):cl-launch) :init \"(load (pop
cl-launch:*arguments*))\" :quit nil))":
couldn't write to #<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>:
Bad file descriptor
0: (SB-DEBUG:BACKTRACE
128
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-ERROR-OUTPUT* {A8412A1}>)
1: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
#<SIMPLE-ERROR {C3ABCF9}>
#<unavailable argument>)
2: (INVOKE-DEBUGGER #<SIMPLE-ERROR {C3ABCF9}>)
3: (ERROR
"Error during processing of --eval ~
option ~S:~%~% ~A")
4: ((LAMBDA (SB-IMPL::E)) #<SB-INT:SIMPLE-STREAM-ERROR {C3ABA71}>)
5: ((LAMBDA (SB-IMPL::E)) #<SB-INT:SIMPLE-STREAM-ERROR {C3ABA71}>)
6: (SIGNAL #<SB-INT:SIMPLE-STREAM-ERROR {C3ABA71}>)
7: (ERROR SB-INT:SIMPLE-STREAM-ERROR)
8: (SB-IMPL::SIMPLE-STREAM-PERROR
"couldn't write to ~S"
#<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>
9)
9: (SB-IMPL::FLUSH-OUTPUT-BUFFER
#<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>)
10: (SB-IMPL::OUTPUT-CHAR-LATIN-1-LINE-BUFFERED
#<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>
#\Newline)
11: (WRITE-CHAR #\Newline #<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>)
12: (WRITE-CHAR #\Newline #<SYNONYM-STREAM :SYMBOL SB-SYS:*TTY* {91110C9}>)
13: (WRITE-CHAR
#\Newline
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-TERMINAL-IO* {A8412F9}>)
14: (WRITE-CHAR #\Newline #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {915F2A1}>)
15: (TERPRI #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>)
16: (SB-FORMAT::PERCENT_SIGN-FORMAT-DIRECTIVE-INTERPRETER
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>
#<~%>
NIL
#<unavailable argument>
NIL)
17: (SB-FORMAT::INTERPRET-DIRECTIVE-LIST
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>
(#<~%>)
(4005)
NIL)
18: (SB-FORMAT::%FORMAT
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>
"~&;; Swank started at port: ~D.~%"
(4005)
(4005))
19: (FORMAT
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>
"~&;; Swank started at port: ~D.~%")
20: (SWANK::SIMPLE-ANNOUNCE-FUNCTION 4005)
21: (SWANK::SETUP-SERVER
4005
#<FUNCTION SWANK::SIMPLE-ANNOUNCE-FUNCTION>
:SPAWN
T
:UTF-8-UNIX)
22: (SB-INT:EVAL-IN-LEXENV (START-SWANK *UCW-SWANK-PORT*) #<NULL-LEXENV>)
23: (SB-FASL::LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM for "file /etc/ucw/start.lisp" {AFCFAE1}>
NIL
NIL)
Any help would be greatly appreciated. Thanks,
Daniel
--
"Work and play are used to describe the same thing under differing
circumstance."
- Mark Twain
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/bese-devel/attachments/20060412/c66d85b1/attachment.html>
-------------- next part --------------
; loading system definition from /usr/share/common-lisp/systems/arnesi.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM :ARNESI {B17F3E9}> as ARNESI
; registering #<SYSTEM :ARNESI.TEST {B2F5881}> as ARNESI.TEST
; registering #<SYSTEM :ARNESI.CL-PPCRE-EXTRAS {A858381}> as
; ARNESI.CL-PPCRE-EXTRAS
STYLE-WARNING: implicitly creating new generic function EFFECTIVE-KEYWORD-NAME
STYLE-WARNING: implicitly creating new generic function APPLY-LAMBDA/CC
STYLE-WARNING: implicitly creating new generic function ENABLED-P
STYLE-WARNING: implicitly creating new generic function LOG.LEVEL
STYLE-WARNING: implicitly creating new generic function (SETF LOG.LEVEL)
STYLE-WARNING: implicitly creating new generic function ENQUEUE
STYLE-WARNING: implicitly creating new generic function DEQUEUE
STYLE-WARNING: implicitly creating new generic function PEEK-QUEUE
STYLE-WARNING: implicitly creating new generic function QUEUE-EMPTY-P
STYLE-WARNING: implicitly creating new generic function QUEUE-FULL-P
STYLE-WARNING: implicitly creating new generic function QUEUE-COUNT
STYLE-WARNING:
implicitly creating new generic function CALL-FOR-ALL-ELEMENTS-WITH-INDEX
STYLE-WARNING: implicitly creating new generic function GROW-QUEUE
STYLE-WARNING: implicitly creating new generic function MOVE-TAIL
STYLE-WARNING: implicitly creating new generic function MOVE-HEAD
STYLE-WARNING: implicitly creating new generic function ENQUEUE-OR-MOVE-TO-FRONT
; loading system definition from /usr/share/common-lisp/systems/ucw.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM :UCW {B1527F1}> as UCW
; registering #<SYSTEM :UCW.CONFIG {B2E3271}> as UCW.CONFIG
; registering #<SYSTEM :UCW.DEFAULT {B44F949}> as UCW.DEFAULT
; registering #<SYSTEM :UCW.ADMIN {B5B9579}> as UCW.ADMIN
; registering #<SYSTEM :UCW.EXAMPLES {A9080B1}> as UCW.EXAMPLES
; registering #<SYSTEM :UCW.HTTPD {AC355D1}> as UCW.HTTPD
; registering #<SYSTEM :UCW.MOD-LISP {AD9DBF9}> as UCW.MOD-LISP
; registering #<SYSTEM :UCW.ASERVE {AEFF621}> as UCW.ASERVE
; registering #<SYSTEM :UCW.ARANEIDA {B079CE1}> as UCW.ARANEIDA
; registering #<SYSTEM :UCW.CL-ICU {B1DA5E1}> as UCW.CL-ICU
; registering #<SYSTEM :UCW.EXAMPLES.I18N {B356C51}> as UCW.EXAMPLES.I18N
; loading system definition from /usr/lib/sbcl/site-systems/rfc2109.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM "rfc2109" {B647FF1}> as rfc2109
; loading system definition from /usr/lib/sbcl/site-systems/split-sequence.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM :SPLIT-SEQUENCE {AB71529}> as SPLIT-SEQUENCE
; loading system definition from /usr/lib/sbcl/site-systems/trivial-sockets.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM TRIVIAL-SOCKETS {AD0AF69}> as TRIVIAL-SOCKETS
; loading system definition from /usr/share/common-lisp/systems/cl-ppcre.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM #:CL-PPCRE {AEA8AC1}> as CL-PPCRE
; loading system definition from /usr/share/common-lisp/systems/parenscript.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM :PARENSCRIPT {B093851}> as PARENSCRIPT
; registering #<SYSTEM :PARENSCRIPT.TEST {B33EEA9}> as PARENSCRIPT.TEST
; loading system definition from /usr/share/common-lisp/systems/iterate.asd
; into #<PACKAGE "ASDF0">
; registering #<SYSTEM ITERATE {B4F27F1}> as ITERATE
; registering #<SYSTEM ITERATE-PG {B675609}> as ITERATE-PG
; registering #<SYSTEM ITERATE-TESTS {AB66169}> as ITERATE-TESTS
; loading system definition from /usr/share/common-lisp/systems/swank.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM :SWANK {B055F69}> as SWANK
; loading system definition from /usr/share/common-lisp/systems/yaclml.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM :YACLML {B1FA821}> as YACLML
; registering #<SYSTEM :YACLML.TEST {B38F531}> as YACLML.TEST
STYLE-WARNING: redefining PREFERRED-COMMUNICATION-STYLE NIL in DEFMETHOD
STYLE-WARNING: redefining CALL-WITHOUT-INTERRUPTS (T) in DEFMETHOD
STYLE-WARNING: redefining LISP-IMPLEMENTATION-TYPE-NAME NIL in DEFMETHOD
STYLE-WARNING: redefining CALL-WITH-SYNTAX-HOOKS (T) in DEFMETHOD
STYLE-WARNING: redefining DEFAULT-READTABLE-ALIST NIL in DEFMETHOD
STYLE-WARNING: redefining ARGLIST (T) in DEFMETHOD
STYLE-WARNING: redefining INSTALL-DEBUGGER-GLOBALLY (T) in DEFMETHOD
STYLE-WARNING: redefining CALL-WITH-DEBUGGER-HOOK (T T) in DEFMETHOD
STYLE-WARNING: redefining FORMAT-SLDB-CONDITION (T) in DEFMETHOD
STYLE-WARNING: redefining CONDITION-REFERENCES (T) in DEFMETHOD
STYLE-WARNING: redefining UNPROFILE-ALL NIL in DEFMETHOD
STYLE-WARNING: implicitly creating new generic function STARTUP-MULTIPROCESSING
WARNING: DEFIMPLEMENTATION of undefined interface (STARTUP-MULTIPROCESSING)
STYLE-WARNING: redefining THREAD-NAME (T) in DEFMETHOD
STYLE-WARNING: redefining THREAD-STATUS (T) in DEFMETHOD
STYLE-WARNING: redefining MAKE-LOCK NIL in DEFMETHOD
STYLE-WARNING: redefining CALL-WITH-LOCK-HELD (T T) in DEFMETHOD
STYLE-WARNING: redefining MAKE-RECURSIVE-LOCK NIL in DEFMETHOD
STYLE-WARNING: redefining CALL-WITH-RECURSIVE-LOCK-HELD (T T) in DEFMETHOD
STYLE-WARNING: redefining CURRENT-THREAD NIL in DEFMETHOD
STYLE-WARNING: redefining KILL-THREAD (T) in DEFMETHOD
STYLE-WARNING: redefining THREAD-ALIVE-P (T) in DEFMETHOD
STYLE-WARNING: redefining MAKE-STREAM-INTERACTIVE (T) in DEFMETHOD
STYLE-WARNING: redefining BUFFER-FIRST-CHANGE (T) in DEFMETHOD
STYLE-WARNING:
implicitly creating new generic function STREAM-READ-CHAR-WILL-HANG-P
STYLE-WARNING:
implicitly creating new generic function INSPECT-BIGGER-PIECE-ACTIONS
STYLE-WARNING:
implicitly creating new generic function INSPECT-WHOLE-THING-ACTION
STYLE-WARNING: implicitly creating new generic function INSPECT-SHOW-MORE-ACTION
STYLE-WARNING:
implicitly creating new generic function MENU-CHOICES-FOR-PRESENTATION
STYLE-WARNING: new FTYPE proclamation
#<SB-KERNEL:FUN-TYPE (FUNCTION (T) (VALUES SIMPLE-STRING &REST T))>
for STR does not match old FTYPE proclamation
#<SB-KERNEL:FUN-TYPE (FUNCTION (T) *)>
STYLE-WARNING: implicitly creating new generic function END-STRING
STYLE-WARNING:
implicitly creating new generic function CREATE-GREEDY-CONSTANT-LENGTH-MATCHER
STYLE-WARNING:
implicitly creating new generic function CREATE-GREEDY-NO-ZERO-MATCHER
STYLE-WARNING: implicitly creating new generic function CREATE-GREEDY-MATCHER
STYLE-WARNING:
implicitly creating new generic function CREATE-NON-GREEDY-CONSTANT-LENGTH-MATCHER
STYLE-WARNING:
implicitly creating new generic function CREATE-NON-GREEDY-NO-ZERO-MATCHER
STYLE-WARNING:
implicitly creating new generic function CREATE-NON-GREEDY-MATCHER
STYLE-WARNING:
implicitly creating new generic function CREATE-CONSTANT-REPETITION-CONSTANT-LENGTH-MATCHER
STYLE-WARNING:
implicitly creating new generic function CREATE-CONSTANT-REPETITION-MATCHER
STYLE-WARNING:
implicitly creating new generic function BUILD-REPLACEMENT-TEMPLATE
STYLE-WARNING: implicitly creating new generic function (SETF DEBUG-ON-ERROR)
STYLE-WARNING: redefining DEBUG-ON-ERROR (STANDARD-APPLICATION) in DEFMETHOD
STYLE-WARNING:
implicitly creating new generic function HANDLE-ACTION-ERROR-USING-APPLICATION
STYLE-WARNING: implicitly creating new generic function RESTART-APPLICATION
STYLE-WARNING: implicitly creating new generic function PLACE
STYLE-WARNING: implicitly creating new generic function (SETF PLACE)
STYLE-WARNING: implicitly creating new generic function CLONE-PLACE-VALUE
STYLE-WARNING: implicitly creating new generic function SAVE-BACKTRACKED
STYLE-WARNING: implicitly creating new generic function REINSTATE-BACKTRACKED
STYLE-WARNING: implicitly creating new generic function BACKTRACK
STYLE-WARNING: implicitly creating new generic function BACKTRACK-SLOT
STYLE-WARNING: redefining HANDLE-ACTION-ERROR-USING-APPLICATION in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function RUN-ISOLATED
STYLE-WARNING: redefining CALL-COMPONENT in DEFGENERIC
STYLE-WARNING: redefining CALL-COMPONENT in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function ANSWER-COMPONENT*
STYLE-WARNING: implicitly creating new generic function JUMP-TO-COMPONENT
STYLE-WARNING: redefining REFRESH-COMPONENT in DEFGENERIC
STYLE-WARNING: redefining OK in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function ACTION-REQUEST-P
STYLE-WARNING: implicitly creating new generic function RESTART-SERVER
STYLE-WARNING: implicitly creating new generic function REGISTER-APPLICATION
STYLE-WARNING: implicitly creating new generic function UNREGISTER-APPLICATION
STYLE-WARNING: implicitly creating new generic function MAKE-NEW-ACTION
STYLE-WARNING:
implicitly creating new generic function MAKE-NEW-CALLBACK-USING-CLASS
STYLE-WARNING: implicitly creating new generic function FIND-FRAME-BY-ID
STYLE-WARNING: implicitly creating new generic function RENDER-TEMPLATE
STYLE-WARNING: implicitly creating new generic function PREPROCESS-TEMPLATE
STYLE-WARNING: redefining APPLICATION-AUTHENTICATE-USER in DEFGENERIC
STYLE-WARNING: redefining APPLICATION-AUTHENTICATE-USER in DEFGENERIC
STYLE-WARNING: redefining APPLICATION-AUTHORIZE-SESSION in DEFGENERIC
STYLE-WARNING: redefining APPLICATION-AUTHORIZE-SESSION in DEFGENERIC
STYLE-WARNING: redefining CALL-COMPONENT in DEFGENERIC
; in: LAMBDA (#:G1979)
; #'(LAMBDA
; (SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL. SB-PCL::.ARG0.
; SB-PCL::.ARG1.)
; (DECLARE (IGNORE SB-PCL::.PV-CELL. SB-PCL::.NEXT-METHOD-CALL.))
; (ERROR 'SB-PCL::LONG-METHOD-COMBINATION-ERROR
; :FORMAT-CONTROL
; #:G1979
; :FORMAT-ARGUMENTS
; (LIST 'IT.BESE.ARNESI::PRIMARY)))
;
; caught STYLE-WARNING:
; The variable SB-PCL::.ARG0. is defined but never used.
;
; caught STYLE-WARNING:
; The variable SB-PCL::.ARG1. is defined but never used.
STYLE-WARNING:
redefining WINDOW-COMPONENT.CONTENT-TYPE (WINDOW-COMPONENT) in DEFMETHOD
STYLE-WARNING: implicitly creating new generic function SHOW-STATUS-BAR
STYLE-WARNING: implicitly creating new generic function IN-FIELD-ON-FOCUS
STYLE-WARNING: implicitly creating new generic function IN-FIELD-SETUP
STYLE-WARNING: implicitly creating new generic function VALIDATE
STYLE-WARNING: implicitly creating new generic function JAVASCRIPT-CHECK
STYLE-WARNING: implicitly creating new generic function DATE-YMD
STYLE-WARNING: redefining VALIDATE in DEFGENERIC
STYLE-WARNING: redefining JAVASCRIPT-CHECK in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function REPORT-ERROR
STYLE-WARNING: implicitly creating new generic function CHECK-CREDENTIALS
STYLE-WARNING: implicitly creating new generic function FIND-COMPONENT
STYLE-WARNING: implicitly creating new generic function (SETF FIND-COMPONENT)
STYLE-WARNING: implicitly creating new generic function ADD-COMPONENT
STYLE-WARNING: implicitly creating new generic function COMPONENT-AT
STYLE-WARNING: implicitly creating new generic function (SETF COMPONENT-AT)
STYLE-WARNING:
implicitly creating new generic function CONTAINER.CURRENT-COMPONENT
STYLE-WARNING:
implicitly creating new generic function ENSURE-VALID-COMPONENT-LABEL
STYLE-WARNING: implicitly creating new generic function MAP-CONTENTS
STYLE-WARNING: redefining CHECK-CREDENTIALS in DEFGENERIC
STYLE-WARNING:
implicitly creating new generic function RANGE-VIEW.CURRENT-WINDOW
STYLE-WARNING:
implicitly creating new generic function RANGE-VIEW.CURRENT-WINDOW-ITEMS
STYLE-WARNING:
implicitly creating new generic function RANGE-VIEW.HAVE-PREVIOUS-P
STYLE-WARNING: implicitly creating new generic function RANGE-VIEW.HAVE-NEXT-P
STYLE-WARNING: implicitly creating new generic function PROCESS-ACCEPT-LANGUAGE
;
; compilation unit finished
; caught 2 STYLE-WARNING conditions
; loading system definition from /usr/share/common-lisp/systems/cl-fad.asd into
; #<PACKAGE "ASDF0">
; registering #<SYSTEM #:CL-FAD {BB881E1}> as CL-FAD
; registering #<SYSTEM #:CL-FAD-TESTS {BD20B51}> as CL-FAD-TESTS
STYLE-WARNING: redefining LOGIN-SUCCESSFUL in DEFGENERIC
STYLE-WARNING: redefining SUBMIT in DEFGENERIC
STYLE-WARNING: implicitly creating new generic function SAFE-PRINT-REPL-VALUE
STYLE-WARNING: redefining START in DEFGENERIC
STYLE-WARNING: redefining REFRESH-COMPONENT in DEFGENERIC
STYLE-WARNING: redefining OK in DEFGENERIC
STYLE-WARNING: redefining START in DEFGENERIC
unhandled SIMPLE-ERROR in thread #<SB-THREAD:THREAD "initial thread" {A7F2461}>:
Error during processing of --eval option "(progn(set-dispatch-macro-character #\\# #\\! #'(lambda(stream char arg)(declare(ignore char arg))(values (read-line stream))))(load \"/usr/bin/cl-launch\" :verbose nil :print nil)
(funcall(intern(string :run):cl-launch) :init \"(load (pop cl-launch:*arguments*))\" :quit nil))":
couldn't write to #<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>:
Bad file descriptor
0: (SB-DEBUG:BACKTRACE
128
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-ERROR-OUTPUT* {A8412A1}>)
1: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
#<SIMPLE-ERROR {C3ABCF9}>
#<unavailable argument>)
2: (INVOKE-DEBUGGER #<SIMPLE-ERROR {C3ABCF9}>)
3: (ERROR
"Error during processing of --eval ~
option ~S:~%~% ~A")
4: ((LAMBDA (SB-IMPL::E)) #<SB-INT:SIMPLE-STREAM-ERROR {C3ABA71}>)
5: ((LAMBDA (SB-IMPL::E)) #<SB-INT:SIMPLE-STREAM-ERROR {C3ABA71}>)
6: (SIGNAL #<SB-INT:SIMPLE-STREAM-ERROR {C3ABA71}>)
7: (ERROR SB-INT:SIMPLE-STREAM-ERROR)
8: (SB-IMPL::SIMPLE-STREAM-PERROR
"couldn't write to ~S"
#<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>
9)
9: (SB-IMPL::FLUSH-OUTPUT-BUFFER
#<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>)
10: (SB-IMPL::OUTPUT-CHAR-LATIN-1-LINE-BUFFERED
#<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>
#\Newline)
11: (WRITE-CHAR #\Newline #<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>)
12: (WRITE-CHAR #\Newline #<SYNONYM-STREAM :SYMBOL SB-SYS:*TTY* {91110C9}>)
13: (WRITE-CHAR
#\Newline
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-TERMINAL-IO* {A8412F9}>)
14: (WRITE-CHAR #\Newline #<SYNONYM-STREAM :SYMBOL *TERMINAL-IO* {915F2A1}>)
15: (TERPRI #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>)
16: (SB-FORMAT::PERCENT_SIGN-FORMAT-DIRECTIVE-INTERPRETER
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>
#<~%>
NIL
#<unavailable argument>
NIL)
17: (SB-FORMAT::INTERPRET-DIRECTIVE-LIST
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>
(#<~%>)
(4005)
NIL)
18: (SB-FORMAT::%FORMAT
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>
"~&;; Swank started at port: ~D.~%"
(4005)
(4005))
19: (FORMAT
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>
"~&;; Swank started at port: ~D.~%")
20: (SWANK::SIMPLE-ANNOUNCE-FUNCTION 4005)
21: (SWANK::SETUP-SERVER
4005
#<FUNCTION SWANK::SIMPLE-ANNOUNCE-FUNCTION>
:SPAWN
T
:UTF-8-UNIX)
22: (SB-INT:EVAL-IN-LEXENV (START-SWANK *UCW-SWANK-PORT*) #<NULL-LEXENV>)
23: (SB-FASL::LOAD-AS-SOURCE
#<SB-SYS:FD-STREAM for "file /etc/ucw/start.lisp" {AFCFAE1}>
NIL
NIL)
24: (SB-FASL::INTERNAL-LOAD
#P"/etc/ucw/start.lisp"
#P"/etc/ucw/start.lisp"
:ERROR
NIL
NIL
:SOURCE
:DEFAULT)
25: (SB-FASL::INTERNAL-LOAD
#P"/etc/ucw/start.lisp"
#P"/etc/ucw/start.lisp"
:ERROR
NIL
NIL
NIL
:DEFAULT)
26: (LOAD "/etc/ucw/start.lisp")
27: (SB-INT:EVAL-IN-LEXENV (LOAD (POP CL-LAUNCH:*ARGUMENTS*)) #<NULL-LEXENV>)
28: (SB-FASL::LOAD-AS-SOURCE #<SB-IMPL::STRING-INPUT-STREAM {AFC3599}> NIL NIL)
29: (LOAD #<SB-IMPL::STRING-INPUT-STREAM {AFC3599}>)
30: (CL-LAUNCH::LOAD-STRING "(load (pop cl-launch:*arguments*))")
31: (CL-LAUNCH::RUN
:SYSTEM
NIL
:PATHS
NIL
:INIT
"(load (pop cl-launch:*arguments*))"
:LOAD
NIL
:QUIT
NIL)
32: (SB-INT:EVAL-IN-LEXENV
(FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH)
:INIT
"(load (pop cl-launch:*arguments*))"
:QUIT
NIL)
#<NULL-LEXENV>)
33: (SB-INT:EVAL-IN-LEXENV
(PROGN
(SET-DISPATCH-MACRO-CHARACTER #\#
#\!
#'(LAMBDA (STREAM CHAR SB-DEBUG:ARG)
(DECLARE (IGNORE CHAR SB-DEBUG:ARG))
(VALUES (READ-LINE STREAM))))
(LOAD "/usr/bin/cl-launch" :VERBOSE NIL :PRINT NIL)
(FUNCALL (INTERN (STRING :RUN) :CL-LAUNCH)
:INIT
"(load (pop cl-launch:*arguments*))"
:QUIT
NIL))
#<NULL-LEXENV>)
34: (SB-IMPL::PROCESS-EVAL-OPTIONS
((SB-EXT:DISABLE-DEBUGGER)
"(progn(set-dispatch-macro-character #\\# #\\! #'(lambda(stream char arg)(declare(ignore char arg))(values (read-line stream))))(load \"/usr/bin/cl-launch\" :verbose nil :print nil)
(funcall(intern(string :run):cl-launch) :init \"(load (pop cl-launch:*arguments*))\" :quit nil))"))
35: (SB-IMPL::TOPLEVEL-INIT)
36: ((LABELS SB-IMPL::RESTART-LISP))
unhandled condition in --disable-debugger mode, quitting
unhandled SB-INT:SIMPLE-STREAM-ERROR in thread #<SB-THREAD:THREAD "initial thread" {A7F2461}>:
couldn't write to #<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>:
Bad file descriptor
0: (BACKTRACE
128
#<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-ERROR-OUTPUT* {A8412A1}>)
1: (SB-DEBUG::DEBUGGER-DISABLED-HOOK
#<SB-INT:SIMPLE-STREAM-ERROR {C438501}>
#<unavailable argument>)
2: (INVOKE-DEBUGGER #<SB-INT:SIMPLE-STREAM-ERROR {C438501}>)
3: (ERROR SB-INT:SIMPLE-STREAM-ERROR)
4: (SB-IMPL::SIMPLE-STREAM-PERROR
"couldn't write to ~S"
#<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>
9)
5: (SB-IMPL::FLUSH-OUTPUT-BUFFER
#<SB-SYS:FD-STREAM for "the terminal" {A7F2801}>)
6: (FORCE-OUTPUT #<SYNONYM-STREAM :SYMBOL SWANK::*CURRENT-DEBUG-IO* {A8413A1}>)
7: (SB-INT:FLUSH-STANDARD-OUTPUT-STREAMS)
8: ((LABELS SB-IMPL::RESTART-LISP))
unhandled condition in --disable-debugger mode, quitting
Argh! error within --disable-debugger error handling
More information about the bese-devel
mailing list