X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Fboot.lisp;h=27196f3cbbb47950c812ba81bc597f4019caad3e;hb=0b5610d8a220a4b20cbeac958953ca4d67c00038;hp=af7946dc53e88fec655f8daf11c609fa96a1f2ce;hpb=8624c52d7620e8a4d3de23c363e843a10815f4f4;p=sbcl.git

diff --git a/src/pcl/boot.lisp b/src/pcl/boot.lisp
index af7946d..27196f3 100644
--- a/src/pcl/boot.lisp
+++ b/src/pcl/boot.lisp
@@ -707,7 +707,7 @@ bootstrapping.
 		`(not (null .next-method.))))
      ,@body))
 
-(defstruct method-call
+(defstruct (method-call (:copier nil))
   (function #'identity :type function)
   call-method-args)
 
@@ -728,7 +728,7 @@ bootstrapping.
 			     `(list ,@required-args+rest-arg))
 			(method-call-call-method-args ,method-call)))
 
-(defstruct fast-method-call
+(defstruct (fast-method-call (:copier nil))
   (function #'identity :type function)
   pv-cell
   next-method-call
@@ -745,7 +745,7 @@ bootstrapping.
 		(fast-method-call-next-method-call ,method-call)
 		,@required-args+rest-arg))
 
-(defstruct fast-instance-boundp
+(defstruct (fast-instance-boundp (:copier nil))
   (index 0 :type fixnum))
 
 #-sb-fluid (declaim (sb-ext:freeze-type fast-instance-boundp))
@@ -1426,7 +1426,8 @@ bootstrapping.
 
 (defstruct (arg-info
 	     (:conc-name nil)
-	     (:constructor make-arg-info ()))
+	     (:constructor make-arg-info ())
+	     (:copier nil))
   (arg-info-lambda-list :no-lambda-list)
   arg-info-precedence
   arg-info-metatypes