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

diff --git a/src/pcl/vector.lisp b/src/pcl/vector.lisp
index 5a122ad..76179ea 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)
@@ -520,7 +520,7 @@
 		     ,parameter)
 		    ,new-value))
 	    (:boundp
-	     'T)))
+	     t)))
 	(let* ((parameter-entry (assq parameter slots))
 	       (slot-entry      (assq slot-name (cdr parameter-entry)))
 	       (position (posq parameter-entry slots))
@@ -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)))