0.6.11.10:

[sbcl.git] / src / compiler / generic / core.lisp

diff --git a/src/compiler/generic/core.lisp b/src/compiler/generic/core.lisp
index db0196b..70e7dd3 100644 (file)
--- a/src/compiler/generic/core.lisp
+++ b/src/compiler/generic/core.lisp
@@ -17,7 +17,8 @@
            (:constructor make-core-object ())
            #-no-ansi-print-object
            (:print-object (lambda (x s)
-                            (print-unreadable-object (x s :type t)))))
+                            (print-unreadable-object (x s :type t))))
+           (:copier nil))
   ;; A hashtable translating ENTRY-INFO structures to the corresponding actual
   ;; FUNCTIONs for functions in this compilation.
   (entry-table (make-hash-table :test 'eq) :type hash-table)