Changeset 13109

Timestamp:

Oct 28, 2009, 11:34:00 AM (15 years ago)

Author:

Gary Byers

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:

• trunk/source/lib/dumplisp.lisp (modified) (1 diff)

trunk/source/lib/dumplisp.lisp

@@ -57 +57 @@
                     ;; startup code.
                     (if (and (eql (typecode o) target::subtag-instance)
-                             (typep o 'buffered-stream-mixin))
+                             (typep o 'buffered-stream-mixin)
+                             (slot-boundp o 'ioblock))
                       (let ((s (slot-value o 'ioblock)))
                         (when (and (typep s 'ioblock)