X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fpcl%2Ffast-init.lisp;h=38693682a00ab6fa27e181c96e2741d5e80c3e54;hb=4cf50b1896b25f5337e7c258b0b560da00d47993;hp=f4566932e0f53381a3213ef8e22710b6ac3053d2;hpb=4f64f131a7bca59d0dc8be9e74d05a7645f27e67;p=sbcl.git

diff --git a/src/pcl/fast-init.lisp b/src/pcl/fast-init.lisp
index f456693..3869368 100644
--- a/src/pcl/fast-init.lisp
+++ b/src/pcl/fast-init.lisp
@@ -178,7 +178,7 @@
 				     'initialize-info name)))
 		 *initialize-info-cached-slots*)))
     `(progn
-       (defstruct initialize-info
+       (defstruct (initialize-info (:copier nil))
 	 key wrapper
 	 ,@(mapcar #'(lambda (name)
 		       `(,name :unknown))
@@ -695,7 +695,7 @@
 (defvar *note-iis-entry-p* nil)
 
 (defvar *compiled-initialize-instance-simple-functions*
-  (make-hash-table :test #'equal))
+  (make-hash-table :test 'equal))
 
 (defun initialize-instance-simple-function (use info class form-list)
   (let* ((pv-cell (get-pv-cell-for-class class))