Changeset 13142

Timestamp:

Oct 30, 2009, 3:24:08 PM (15 years ago)

Author:

gz

Message:

Merge r13109 (close-ioblock-streams fix)

File:

• branches/working-0711/ccl/lib/dumplisp.lisp (modified) (1 diff)

branches/working-0711/ccl/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)