X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fctype.lisp;h=0903088d4ecc57d362906770e573b45bd18cda68;hb=0b5610d8a220a4b20cbeac958953ca4d67c00038;hp=f0948499a64f1d0ac85239f9daddd76a2fa896c5;hpb=8624c52d7620e8a4d3de23c363e843a10815f4f4;p=sbcl.git

diff --git a/src/compiler/ctype.lisp b/src/compiler/ctype.lisp
index f094849..0903088 100644
--- a/src/compiler/ctype.lisp
+++ b/src/compiler/ctype.lisp
@@ -323,7 +323,7 @@
 ;;;; proclamation, we can check the actual type for compatibity with the
 ;;;; previous uses.
 
-(defstruct (approximate-function-type)
+(defstruct (approximate-function-type (:copier nil))
   ;; The smallest and largest numbers of arguments that this function has been
   ;; called with.
   (min-args call-arguments-limit :type fixnum)
@@ -336,7 +336,7 @@
   ;; describing each argument position in which the keyword appeared.
   (keys () :type list))
 
-(defstruct (approximate-key-info)
+(defstruct (approximate-key-info (:copier nil))
   ;; The keyword name of this argument. Although keyword names don't have to
   ;; be keywords, we only match on keywords when figuring an approximate type.
   (name (required-argument) :type keyword)