X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fvector.lisp;h=4c72075d6409b070773f3f55e56da5d66ec0bbc9;hb=0b5610d8a220a4b20cbeac958953ca4d67c00038;hp=5a122ad2a5caa1daceeeda120a0cc3e9a4ff43c3;hpb=d5aafdd8ab6387e12bac187048ed322bc96fb79a;p=sbcl.git

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index 5a122ad..4c72075 100644
--- a/src/pcl/vector.lisp
+++ b/src/pcl/vector.lisp
@@ -36,10 +36,10 @@
 (defun pv-cache-limit-fn (nlines)
   (default-limit-fn nlines))
 
-(defstruct (pv-table
-	     (:predicate pv-tablep)
-	     (:constructor make-pv-table-internal
-			   (slot-name-lists call-list)))
+(defstruct (pv-table (:predicate pv-tablep)
+		     (:constructor make-pv-table-internal
+				   (slot-name-lists call-list))
+		     (:copier nil))
   (cache nil :type (or cache null))
   (pv-size 0 :type fixnum)
   (slot-name-lists nil :type list)