Changeset 5994


Ignore:
Timestamp:
Mar 7, 2007, 6:23:57 AM (18 years ago)
Author:
Gary Byers
Message:

Add comment about *OPEN-FILE-STREAMS-LOCK*.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ccl/level-1/l1-readloop.lisp

    r5609 r5994  
    151151            (timed-wait-on-semaphore semaphore 0.10)))))
    152152    (shutdown-lisp-threads)
     153    ;; Don't need to grab *open-file-streams-lock* here, since
     154    ;; we're single-threaded at this point.
    153155    (while *open-file-streams*
    154156      (let* ((ioblock (stream-ioblock (car *open-file-streams*) nil)))
Note: See TracChangeset for help on using the changeset viewer.