0.6.11.10:

[sbcl.git] / src / compiler / ctype.lisp

diff --git a/src/compiler/ctype.lisp b/src/compiler/ctype.lisp
index f094849..0903088 100644 (file)
--- 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)