[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Problem writing files via ftp - already closed error
I have been having the problem documented below ever since I upgraded grande, an rs6000 to
AIX 3.2. Before that, everything was fine.
Any time I write a file to grande (ftp connection, no nfs mounts, etc) I
get the msg below that the file has already closed. If you check grande
at this point, the file has been completely transferred and everything
is fine. The lispm, on the other hand is apparently confused. If you
abort, you get the msg about how unexpected this all is, but invites you
to type "abort" if you really want out. This works just fine. So what's
the problem? It really annoying to have to go through the debugger
everytime you save a zmacs file. I reported this to Symbolics months
ago, and keep bugging them about it, but there is apparently no
resources to fix this. I have tried to find some place for a stupid
patch that just ignores the error, since the file write seems to occur
fine, but every attempt I have made seems to wierd things up somewhere
else. All help gratefully acknowledged.
Command: Show Herald
Symbolics System, FEP0:>strips-world-8-1.ilod.1
XL1200 Processor, 4.0M words Physical memory, 36.6M words Swapping space.
Genera 8.1
IP-TCP 435.2
CLX 431.0
X Remote Screen 429.0
X Documentation 408.0
NFS Client 425.0
NFS Documentation 410.0
Print Spooler 425.0
Fix NBS serial to handle parity :NONE
TMC Completions
Styles From Keyboard
Styles from mouse
Remind Hack
Imsd CHEER
Command: Copy File (pathnames of files [default INTVAX:/home/drstrip/milestones/milestones-11-6]) CHEER:>drstrip>lisp
m-init.lisp.newest (to [default CHEER:>drstrip>lispm-init.lisp.*]) GRANDE:/home/drstrip/lispm
Copying CHEER:>DRSTRIP>lispm-init.lisp.64 to GRANDE:/home/drstrip/lispm (text)
Copied CHEER:>DRSTRIP>lispm-init.lisp.64 to GRANDE:/home/drstrip/lispm (text)
Error: Attempt to write to #<TCP::TCP-BINARY-STREAM 1167101>, which has already been closed.
(FLAVOR:METHOD :NEW-OUTPUT-BUFFER TCP::TCP-OUTPUT-STREAM-MIXIN)
Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TCP::TCP-OUTPUT-STREAM-MIXIN 20012722153>
Arg 1 (SELF): #<TCP::TCP-BINARY-STREAM 1167101>
s-A, : Retry copying CHEER:>drstrip>lispm-init.lisp.newest to GRANDE:/home/drstrip/lispm.
s-B, : Return to Lisp Top Level in Dynamic Lisp Listener 1
s-C: Restart process Dynamic Lisp Listener 1
Control-Meta-B Show Backtrace :Internal Yes :Detailed Yes
(FLAVOR:METHOD :NEW-OUTPUT-BUFFER TCP::TCP-OUTPUT-STREAM-MIXIN) (from MIRTH:>rel8-1>ip-tcp>tcp-user)
Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TCP::TCP-OUTPUT-STREAM-MIXIN 20012722153>
Arg 1 (SELF): #<TCP::TCP-BINARY-STREAM 1167101>
(FLAVOR:METHOD :SETUP-NEW-OUTPUT-BUFFER SI:BASIC-BUFFERED-OUTPUT-STREAM)
Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map to flavor SI:BASIC-BUFFERED-OUTPUT-STREAM 20012722114>
Arg 1 (SELF): #<TCP::TCP-BINARY-STREAM 1167101>
(FLAVOR:METHOD :TYO SI:BASIC-BUFFERED-OUTPUT-STREAM)
Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map to flavor SI:BASIC-BUFFERED-OUTPUT-STREAM 20012722114>
Arg 1 (SELF): #<TCP::TCP-BINARY-STREAM 1167101>
Arg 2 (SI:CH): 64
(FLAVOR:METHOD :CLOSE TCP::FTP-BLOCK-MODE-OUTPUT-MIXIN :BEFORE)
Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TCP::FTP-BLOCK-MODE-OUTPUT-MIXIN 20012730364>
Arg 1 (SELF): #<TCP::FTP-BLOCK-MODE-CHARACTER-OUTPUT-STREAM "GRANDE:/home/drstrip/lispm" 1167174>
Arg 2 (TCP::ABORTP): NIL
(FLAVOR:COMBINED :CLOSE TCP::FTP-BLOCK-MODE-CHARACTER-OUTPUT-STREAM)
Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map to flavor TCP::FTP-BLOCK-MODE-CHARACTER-OUTPUT-STREAM 20012730340>
Arg 1 (SELF): #<TCP::FTP-BLOCK-MODE-CHARACTER-OUTPUT-STREAM "GRANDE:/home/drstrip/lispm" 1167174>
Rest Arg: (NIL)
SI:CLOSE-OPEN-STREAM
Arg 0 (SI:STREAM): #<TCP::FTP-BLOCK-MODE-CHARACTER-OUTPUT-STREAM "GRANDE:/home/drstrip/lispm" 1167174>
Arg 1 (SYS:ABORT): NIL
ZL:COPYF
Arg 0 (FS:FROM-PATHNAME): #P"CHEER:>DRSTRIP>lispm-init.lisp.64"
Arg 1 (FS:TO-PATHNAME): #P"GRANDE:/home/drstrip/lispm"
Rest Arg: (:ELEMENT-TYPE :DEFAULT :COPY-AUTHOR T ...)
(:INTERNAL (:INTERNAL (:INTERNAL SI:COM-COPY-FILE 0) 0) 0 SI:DO-COPY)
Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): ((# #P"GRANDE:/home/drstrip/lispm" NIL # ...) :DEFAULT T T ...)
Arg 1 (SI:FROM-FILE): #P"CHEER:>drstrip>lispm-init.lisp.newest"
Arg 2 (SI:TO-FILE): #P"GRANDE:/home/drstrip/lispm"
--Defaulted args:--
Arg 3 (ZL:PLIST): NIL
(:INTERNAL (:INTERNAL SI:COM-COPY-FILE 0) 0)
Arg 0: ((#P"CHEER:>drstrip>lispm-init.lisp.newest") #P"GRANDE:/home/drstrip/lispm" NIL (:AUTHOR :CREATION-DATE) ..
.)
CP::WITH-STANDARD-OUTPUT-BOUND-INTERNAL
Arg 0 (CP::DESTINATIONS): NIL
Arg 1 (CP::CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL # 0) 274435>
(:INTERNAL SI:COM-COPY-FILE 0)
Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): ((#P"CHEER:>drstrip>lispm-init.lisp.newest") #P"GRANDE:/home/drstr
ip/lispm" NIL (:AUTHOR :CREATION-DATE) ...)
CP::WITH-MORE-PROCESSING-BOUND
Arg 0 (CP::MORE-PROCESSING): :DEFAULT
Arg 1 (CP::CONTINUATION): #<LEXICAL-CLOSURE (:INTERNAL SI:COM-COPY-FILE 0) 274433>
SI:COM-COPY-FILE
Arg 0 (SI:FILES): (#P"CHEER:>drstrip>lispm-init.lisp.newest")
Arg 1 (SI:TO-FILE): #P"GRANDE:/home/drstrip/lispm"
Rest Arg: NIL
SI:*EVAL
Arg 0 (SYS:FORM): NIL
--Defaulted args:--
Arg 1 (SI:ENV): NIL
Arg 2 (SI:HOOK): NIL
EVAL
Arg 0 (SYS:FORM): (SI:COM-COPY-FILE (QUOTE #) (QUOTE #P"GRANDE:/home/drstrip/lispm"))
Arg 1 (SI:ENV): NIL
CP::COMMAND-LOOP-EVAL-FUNCTION
Arg 0 (CP::FORM): (SI:COM-COPY-FILE (QUOTE #) (QUOTE #P"GRANDE:/home/drstrip/lispm"))
--Defaulted args:--
Arg 1 (CP::ENVIRONMENT): NIL
(:PROPERTY SYS:DTP-SYMBOL SI:INTERPRETER-FUNCTION)
Arg 0 (FUNCTION): CP::COMMAND-LOOP-EVAL-FUNCTION
Rest Arg: ((SI:COM-COPY-FILE # #))
(:INTERNAL (:INTERNAL (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 0) 0 SI:W
ITH-PROCESS-NON-INTERACTIVE-PRIORITY-BODY)
Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600350174>
(:INTERNAL SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL 0)
Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600350246>
Arg 1 (PROCESS:START-DELAYED-PRIORITIES): #<STACK-LEXICAL-CLOSURE (:INTERNAL PROCESS::WITH-DELAYED-PROCESS-PRIORIT
IES-INTERNAL 0 PROCESS::START-TIMERS) 36600350266>
PROCESS::WITH-DELAYED-PROCESS-PRIORITIES-INTERNAL
Arg 0 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNA
L 0) 36600350251>
Arg 1 (PROCESS::PRIORITY): T
Rest Arg: (2.0 -822083583)
SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-INTERNAL
Arg 0 (PROCESS:PROCESS): #<PROCESS:PROCESS Dynamic Lisp Listener 1 (2 1) 20120007526>
Arg 1 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL # 0 SI:WITH-PROCESS-NON-INTERACTIVE-PRIORITY-BOD
Y) 36600350176>
Rest Arg: NIL
(:INTERNAL (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY) 0)
Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600350156>
TV:WITH-NOTIFICATION-MODE-INTERNAL
Arg 0 (TV:NEW-MODE): :BLAST
Arg 1 (TV:STREAM): #:TERMINAL-IO-SYN-STREAM
Arg 2 (TV:CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL # 0) 36600350157>
(:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-INTERACTIVE-PRIORITY-BODY)
Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600350117>
(:INTERNAL SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 0)
Arg 0 (COMPILER:.LEXICAL-ENVIRONMENT-POINTER.): #<LOCATIVE 36600350133>
PROCESS::WITH-PROCESS-PRIORITY-INTERNAL
Arg 0 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL 0)
36600350136>
Arg 1 (PROCESS::NEW-PRIORITY): -824180735
SI:WITH-PROCESS-INTERACTIVE-PRIORITY-INTERNAL
Arg 0 (PROCESS:PROCESS): #<PROCESS:PROCESS Dynamic Lisp Listener 1 (2 1) 20120007526>
Arg 1 (PROCESS::CONTINUATION): #<STACK-LEXICAL-CLOSURE (:INTERNAL SI:LISP-COMMAND-LOOP-INTERNAL 0 SI:WITH-PROCESS-
INTERACTIVE-PRIORITY-BODY) 36600350126>
Rest Arg: NIL
SI:LISP-COMMAND-LOOP-INTERNAL
Arg 0 (PROCESS::NAME): "Lisp Top Level"
Arg 1 (SI:ABORT-FUNCTION): NIL
Arg 2 (SI:READ-FUNCTION): NIL
Arg 3 (SI:EVAL-FUNCTION): NIL
Arg 4 (SI:PRINT-FUNCTION): NIL
Arg 5 (PROCESS::INITIAL-FORM): NIL
Arg 6 (SI:STANDARD-VALUE-BINDINGS): (NIL)
SI:LISP-COMMAND-LOOP
Arg 0: #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 20007002557 exposed>
Rest Arg: (:NAME "Lisp Top Level")
SI:LISP-TOP-LEVEL1
Arg 0 (SI:STREAM): #<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 20007002557 exposed>
(:PROPERTY SYS:DTP-SYMBOL SI:INTERPRETER-FUNCTION)
Arg 0 (FUNCTION): SI:LISP-TOP-LEVEL1
Rest Arg (ZL:ARGS): (#<DYNAMIC-LISP-LISTENER Dynamic Lisp Listener 1 20007002557 exposed>)
(FLAVOR:METHOD PROCESS::PROCESS-TOP-LEVEL-1 PROCESS:PROCESS)
Arg 0 (SYS:SELF-MAPPING-TABLE): #<Map to flavor PROCESS:PROCESS 20012166046>
Arg 1 (SELF): #<PROCESS:PROCESS Dynamic Lisp Listener 1 (2 1) 20120007526>
PROCESS::PROCESS-TOP-LEVEL
--Defaulted args:--
Arg 0 (IGNORE): NIL
SI:STACK-GROUP-PRESETTER
Arg 0 (FUNCTION): #<Compiled function PROCESS::PROCESS-TOP-LEVEL 20030706406>
Rest Arg (ZL:ARGS): NIL
Abort Abort
Return to Lisp Top Level in Dynamic Lisp Listener 1
The program cannot safely be aborted at this time.
A cleanup form is closing the stream #<TCP::FTP-BLOCK-MODE-CHARACTER-OUTPUT-STREAM "GRANDE:/home/drstrip/lispm" 100
074405>.
Aborting before the cleanup is complete could leave the stream open indefinitely.
Your only choice is to Abort and accept the risk of damaging the program,
because the program's designer did not anticipate this error (press for help): Abort
Back to Lisp Top Level in Dynamic Lisp Listener 1.
Command: