projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.28.65: fix compiling with *PROFILE-HASH-CACHE* set to T
[sbcl.git]
/
src
/
pcl
/
generic-functions.lisp
diff --git
a/src/pcl/generic-functions.lisp
b/src/pcl/generic-functions.lisp
index
e0ed65a
..
7428801
100644
(file)
--- a/
src/pcl/generic-functions.lisp
+++ b/
src/pcl/generic-functions.lisp
@@
-259,6
+259,8
@@
(defgeneric function-keywords (method))
(defgeneric function-keywords (method))
+(defgeneric function-keyword-parameters (method))
+
(defgeneric generic-function-argument-precedence-order (gf))
(defgeneric generic-function-lambda-list (gf))
(defgeneric generic-function-argument-precedence-order (gf))
(defgeneric generic-function-lambda-list (gf))
@@
-361,8
+363,6
@@
(defgeneric unparse-specializer-using-class (generic-function specializer))
(defgeneric unparse-specializer-using-class (generic-function specializer))
-(defgeneric update-gf-dfun (class gf))
-
(defgeneric validate-superclass (class superclass))
(defgeneric (setf documentation) (new-value slotd doc-type)
(defgeneric validate-superclass (class superclass))
(defgeneric (setf documentation) (new-value slotd doc-type)
@@
-466,7
+466,7
@@
fun-name
&key &allow-other-keys))
fun-name
&key &allow-other-keys))
-(defgeneric initialize-instance (gf &key &allow-other-keys))
+(defgeneric initialize-instance (instance &rest initargs &key &allow-other-keys))
(defgeneric make-instance (class &rest initargs &key &allow-other-keys))
(defgeneric make-instance (class &rest initargs &key &allow-other-keys))
@@
-480,10
+480,9
@@
(defgeneric reader-method-class (class direct-slot &rest initargs))
(defgeneric reader-method-class (class direct-slot &rest initargs))
-(defgeneric reinitialize-instance (gf &rest args &key &allow-other-keys))
+(defgeneric reinitialize-instance (instance &rest initargs &key &allow-other-keys))
-(defgeneric shared-initialize (generic-function
- slot-names
+(defgeneric shared-initialize (instance slot-names &rest initargs
&key &allow-other-keys))
(defgeneric update-dependent (metaobject dependent &rest initargs))
&key &allow-other-keys))
(defgeneric update-dependent (metaobject dependent &rest initargs))