0.6.11.10:

[sbcl.git] / src / code / fd-stream.lisp

diff --git a/src/code/fd-stream.lisp b/src/code/fd-stream.lisp
index 2832898..eb89b3c 100644 (file)
--- a/src/code/fd-stream.lisp
+++ b/src/code/fd-stream.lisp
@@ -44,7 +44,8 @@
 (defstruct (fd-stream
            (:constructor %make-fd-stream)
            (:include lisp-stream
-                     (misc #'fd-stream-misc-routine)))
+                     (misc #'fd-stream-misc-routine))
+           (:copier nil))
 
   ;; the name of this stream
   (name nil)