Changeset 8888


Ignore:
Timestamp:
Mar 25, 2008, 10:12:06 PM (11 years ago)
Author:
gz
Message:

Make clear-ioblock-streams only close device-based streams (e.g. not string streams)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/dumplisp.lisp

    r8883 r8888  
    4343  (%map-areas (lambda (o)
    4444                (if (typep o 'basic-stream)
    45                   (setf (basic-stream.state o) nil)
     45                  (let ((s (basic-stream.state o)))
     46                    (when (and (typep s 'ioblock) (ioblock-device s))
     47                      (setf (basic-stream.state o) nil)))
    4648                  (if (typep o 'buffered-stream-mixin)
    47                     (setf (slot-value o 'ioblock) nil))))))
     49                    (let ((s (slot-value o 'ioblock)))
     50                      (when (and (typep s 'ioblock) (ioblock-device s))
     51                        (setf (slot-value o 'ioblock) nil))))))))
    4852
    4953
Note: See TracChangeset for help on using the changeset viewer.