Ignore:
Timestamp:
Mar 9, 2007, 7:00:24 AM (13 years ago)
Author:
gb
Message:

Encapsulation for open-file-streams.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-sysio.lisp

    r5995 r6019  
    639639            (unix-rename (namestring actual-filename) (probe-file-x filename)))
    640640          (delete-file actual-filename)))
    641       (with-lock-grabbed (*open-file-streams-lock*)
    642         (setq *open-file-streams* (nremove s *open-file-streams*))))))
     641      (remove-open-file-stream s))))
    643642
    644643
     
    843842                  (if (eq direction :probe)
    844843                    (close fstream)
    845                     (with-lock-grabbed (*open-file-streams-lock*)
    846                       (push fstream *open-file-streams*)))
     844                    (note-open-file-stream fstream))
    847845                  fstream)))))))))
    848846
Note: See TracChangeset for help on using the changeset viewer.