Problems using FTP when file system is full

[morley@aaii.oz.au (David Morley)]

We are running Genera 8.0.1 and there seems to be a problem with using
FTP to write files to a full file system on a unix host (a SUN).  If you are
writing a large file, then you will be told (correctly) that the write
failed, but if you are writing a small file, then you are told
(incorrectly) that the write was successful.  Has anyone else
encountered this problem, and if so do they have a fix for it?

In the following example I am copying a small (boot.boot) and large
(genera-8-0.load) file.  The extra messages (marked by me with an
asterix for clarity) are from having the *TCP-FTP-DEBUG-P* flag turned
on. They indicate that the 452 response is being received, but that it
has no effect (for the small file at least):

Command: (setf *tcp-ftp-debug-p* t)
T

Command: Copy File FEP1:>boot.boot.newest EDEN-VALLEY:/test/ 
Copying FEP1:>boot.boot.9 to EDEN-VALLEY:/test/boot.fep-command (text)
 * NOOP
 * 200 NOOP command successful.
 * ALLO 28
 * 202 ALLO command ignored.
 * TYPE A
 * 200 Type set to A.
 * PORT 192,35,59,4,4,89
 * 200 PORT command successful.
 * STOR /test/boot.fep-command
 * 150 Opening ASCII mode data connection for /test/boot.fep-command.
 * 452 Error writing file: No space left on device.
Copied FEP1:>boot.boot.9 to EDEN-VALLEY:/test/boot.fep-command (text)

Command: Copy File FEP0:>Genera-8-0-world.load.newest EDEN-VALLEY:/test/ 
Copying FEP0:>Genera-8-0-world.load.1 to EDEN-VALLEY:/test/genera-8-0-world.load (byte-size 8.)
 * NOOP
 * 200 NOOP command successful.
 * ALLO 40904064
 * 202 ALLO command ignored.
 * TYPE L 8
 * 200 Type set to L (byte size 8).
 * PORT 192,35,59,4,4,90
 * 200 PORT command successful.
 * STOR /test/genera-8-0-world.load
 * 150 Opening BINARY mode data connection for /test/genera-8-0-world.load.
Error: Attempt to send a segment to broken TCP connection to EDEN-VALLEY 20, local port 1114.

The following specials have been rebound; use :Show Standard Value Warnings for details:
  *PRINT-CIRCLE*, *PRINT-LEVEL*, and *PRINT-LENGTH*

TCP::BAD-TCP-CONNECTION-STATE
   Arg 0 (TCP::TCB): #<TCP connection to EDEN-VALLEY 20, local port 1114 3212051>
   Arg 1 (TCP::ATTEMPT): "send a segment to"
s-A, <resume>:    Retry copying FEP0:>Genera-8-0-world.load.newest to EDEN-VALLEY:/test/genera-8-0-world.load.
s-B, <abort>:    Return to Lisp Top Level in Dynamic Lisp Listener 1
s-C:           Restart process Dynamic Lisp Listener 1
-> Abort Abort
Return to Lisp Top Level in Dynamic Lisp Listener 1
 * Ignoring Response: 452 Error writing file: No space left on device.
 * ABOR
 * 225 ABOR command successful.
Back to Lisp Top Level in Dynamic Lisp Listener 1.


	Your puzzledly,

		David Morley (morley@aaii.oz.au)