[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[no subject]



CODE:

(DEFUN FWRITE (S)
       (COND ((NULL OUTFILES)
              (SETQ OUTFILES (LIST (OPEN '((ML AOK) POSITN >) 'APPEND)))))
       (PRINT S (CAR OUTFILES)))

RESULTS: 

1. GARBAGE AT THE BEGINNING OF FILE - ABOUT 2 1/2 SCREENFULS OF  ETC... FOLLOWED BY

2. MY NEW INPUT (INTENDED TO BE APPENDED)

3. ALL OLD DATA IN THE FILE IS GONE

4. AFTER THIS UGLY FILE IS CLOSED AND READ BACK IN I HAVE NO TROUBLE GETTING MY NEW
INPUT (APPARENTLY THE I/O SYSTEM KNOWS TO SKIP (SLOWLY) OVER THE 'S), BUT ALL MY OLD DATA
IS GONE.

5. PROGNOSIS - TERMINAL !!!!!