projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.6.12.64:
[sbcl.git]
/
src
/
pcl
/
fast-init.lisp
diff --git
a/src/pcl/fast-init.lisp
b/src/pcl/fast-init.lisp
index
f456693
..
3869368
100644
(file)
--- a/
src/pcl/fast-init.lisp
+++ b/
src/pcl/fast-init.lisp
@@
-178,7
+178,7
@@
'initialize-info name)))
*initialize-info-cached-slots*)))
`(progn
'initialize-info name)))
*initialize-info-cached-slots*)))
`(progn
- (defstruct initialize-info
+ (defstruct (initialize-info (:copier nil))
key wrapper
,@(mapcar #'(lambda (name)
`(,name :unknown))
key wrapper
,@(mapcar #'(lambda (name)
`(,name :unknown))
@@
-695,7
+695,7
@@
(defvar *note-iis-entry-p* nil)
(defvar *compiled-initialize-instance-simple-functions*
(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))
(defun initialize-instance-simple-function (use info class form-list)
(let* ((pv-cell (get-pv-cell-for-class class))