Changeset 8879


Ignore:
Timestamp:
Mar 24, 2008, 10:49:58 PM (11 years ago)
Author:
gb
Message:

Define CLEAR-IOBLOCK-STREAMS, can call it just before writing the image.

File:
1 edited

Legend:

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

    r6971 r8879  
    2727
    2828(declaim (special *lisp-system-pointer-functions*)) ; defined in l1-init.
     29
    2930
    3031(defun kill-lisp-pointers ()
     
    3839  (setq *interactive-abort-process* nil)
    3940  )
     41
     42(defun clear-ioblock-streams ()
     43  (%map-areas (lambda (o)
     44                (if (typep o 'basic-stream)
     45                  (setf (basic-stream.state o) nil)
     46                  (if (typep o 'buffered-stream-mixin)
     47                    (setf (slot-value o 'ioblock) nil))))))
    4048
    4149
     
    117125                           (funcall f))
    118126                         (kill-lisp-pointers)
     127                         (clear-ioblock-streams)
    119128                         (%set-toplevel
    120129                          #'(lambda ()
Note: See TracChangeset for help on using the changeset viewer.