projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
1.0.12.28: small PCL cache cleanups
[sbcl.git]
/
src
/
pcl
/
generic-functions.lisp
diff --git
a/src/pcl/generic-functions.lisp
b/src/pcl/generic-functions.lisp
index
e3379e2
..
5712219
100644
(file)
--- a/
src/pcl/generic-functions.lisp
+++ b/
src/pcl/generic-functions.lisp
@@
-257,7
+257,7
@@
(defgeneric finalize-inheritance (class))
(defgeneric finalize-inheritance (class))
-(defgeneric function-keywords (method))
+(defgeneric function-keyword-parameters (method))
(defgeneric generic-function-argument-precedence-order (gf))
(defgeneric generic-function-argument-precedence-order (gf))
@@
-275,8
+275,6
@@
(defgeneric method-lambda-list (m))
(defgeneric method-lambda-list (m))
-(defgeneric method-pretty-arglist (method))
-
(defgeneric method-qualifiers (m))
(defgeneric method-specializers (m))
(defgeneric method-qualifiers (m))
(defgeneric method-specializers (m))
@@
-336,6
+334,8
@@
(defgeneric map-dependents (metaobject function))
(defgeneric map-dependents (metaobject function))
+(defgeneric parse-specializer-using-class (generic-function specializer-name))
+
(defgeneric remove-boundp-method (class generic-function))
(defgeneric remove-dependent (metaobject dependent))
(defgeneric remove-boundp-method (class generic-function))
(defgeneric remove-dependent (metaobject dependent))
@@
-359,6
+359,8
@@
;;; This controls DESCRIBE-OBJECT (SLOT-OBJECT STREAM) behavior.
(defgeneric slots-to-inspect (class object))
;;; This controls DESCRIBE-OBJECT (SLOT-OBJECT STREAM) behavior.
(defgeneric slots-to-inspect (class object))
+(defgeneric unparse-specializer-using-class (generic-function specializer))
+
(defgeneric update-gf-dfun (class gf))
(defgeneric validate-superclass (class superclass))
(defgeneric update-gf-dfun (class gf))
(defgeneric validate-superclass (class superclass))
@@
-415,20
+417,19
@@
(defgeneric add-writer-method (class generic-function slot-name slot-documentation))
(defgeneric add-writer-method (class generic-function slot-name slot-documentation))
-(defgeneric make-method-lambda (proto-generic-function
- proto-method
- lambda-expression
- environment))
+(defgeneric make-method-lambda
+ (proto-generic-function proto-method lambda-expression environment))
+
+(defgeneric make-method-specializers-form
+ (proto-generic-function proto-method specializer-names environment))
(defgeneric (setf slot-value-using-class) (new-value class object slotd))
\f
;;;; 5 arguments
(defgeneric (setf slot-value-using-class) (new-value class object slotd))
\f
;;;; 5 arguments
-(defgeneric make-method-initargs-form (proto-generic-function
- proto-method
- lambda-expression
- lambda-list
- environment))
+(defgeneric make-method-initargs-form
+ (proto-generic-function proto-method lambda-expression lambda-list
+ environment))
\f
;;;; optional arguments
\f
;;;; optional arguments