Changeset 13109


Ignore:
Timestamp:
Oct 28, 2009, 6:34:00 PM (10 years ago)
Author:
gb
Message:

In CLOSE-IOBLOCK-STREAMS: if we find a standard instance of a buffered
stream, check to see if its IOBLOCK slot is bound before trying to
reference it.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/dumplisp.lisp

    r13067 r13109  
    5757                    ;; startup code.
    5858                    (if (and (eql (typecode o) target::subtag-instance)
    59                              (typep o 'buffered-stream-mixin))
     59                             (typep o 'buffered-stream-mixin)
     60                             (slot-boundp o 'ioblock))
    6061                      (let ((s (slot-value o 'ioblock)))
    6162                        (when (and (typep s 'ioblock)
Note: See TracChangeset for help on using the changeset viewer.