0.6.11.29:

[sbcl.git] / src / pcl / vector.lisp

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index 5a122ad..4e2b10d 100644 (file)
--- 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)
@@ -1070,10 +1070,11 @@
                     (nm (car next-methods))
                     (nms (cdr next-methods))
                     (nmc (when nm
-                           (make-method-call :function (if (std-instance-p nm)
-                                                           (method-function nm)
-                                                           nm)
-                                             :call-method-args (list nms)))))
+                           (make-method-call
+                            :function (if (std-instance-p nm)
+                                          (method-function nm)
+                                          nm)
+                            :call-method-args (list nms)))))
                (if restp
                    (let* ((rest (nthcdr nreq method-args))
                           (args (ldiff method-args rest)))