0.6.11.10:

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

diff --git a/src/code/lisp-stream.lisp b/src/code/lisp-stream.lisp
index deeba9b..99889a3 100644 (file)
--- a/src/code/lisp-stream.lisp
+++ b/src/code/lisp-stream.lisp
@@ -23,7 +23,8 @@
 (deftype in-buffer-type ()
   `(simple-array (unsigned-byte 8) (,in-buffer-length)))
 
-(defstruct (lisp-stream (:constructor nil))
+(defstruct (lisp-stream (:constructor nil)
+                       (:copier nil))
   ;; Buffered input.
   (in-buffer nil :type (or in-buffer-type null))
   (in-index in-buffer-length :type index)      ; index into IN-BUFFER