[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: