aboutsummaryrefslogtreecommitdiffstats
path: root/test
diff options
context:
space:
mode:
authorStefan Monnier2015-01-26 11:43:06 -0500
committerStefan Monnier2015-01-26 11:43:06 -0500
commita9a3d429e6e53e2be0b20e84f9809dba1d03e52d (patch)
tree7a524468a14403d10d8a2eace08b803110447b7a /test
parent4cdde9196fb4fafb00b0c51b908fd605274147bd (diff)
downloademacs-a9a3d429e6e53e2be0b20e84f9809dba1d03e52d.tar.gz
emacs-a9a3d429e6e53e2be0b20e84f9809dba1d03e52d.zip
* lisp/emacs-lisp/cl-generic.el (cl--generic-method): New struct.
(cl--generic): The method-table is now a (list-of cl--generic-method). (cl--generic-member-method): New function. (cl-generic-define-method): Use it. (cl--generic-build-combined-method, cl--generic-cache-miss): Adapt to new method-table. (cl--generic-no-next-method-function): Add `method' argument. (cl-generic-call-method): Adapt to new method representation. (cl--generic-cnm-sample, cl--generic-nnm-sample): Adjust. (cl-find-method, cl-method-qualifiers): New functions. (cl--generic-method-info): Adapt to new method representation. Return a string for the qualifiers. (cl--generic-describe): * lisp/emacs-lisp/eieio-opt.el (eieio-help-class): Adjust accordingly. (eieio-all-generic-functions, eieio-method-documentation): Adjust to new method representation. * lisp/emacs-lisp/eieio-compat.el (eieio--defmethod): Use cl-find-method. * test/automated/cl-generic-tests.el: Try and make sure cl-lib is not required at run-time.
Diffstat (limited to 'test')
-rw-r--r--test/ChangeLog5
-rw-r--r--test/automated/cl-generic-tests.el4
2 files changed, 7 insertions, 2 deletions
diff --git a/test/ChangeLog b/test/ChangeLog
index 9a31da45416..61ab8b6595a 100644
--- a/test/ChangeLog
+++ b/test/ChangeLog
@@ -1,5 +1,10 @@
12015-01-26 Stefan Monnier <monnier@iro.umontreal.ca> 12015-01-26 Stefan Monnier <monnier@iro.umontreal.ca>
2 2
3 * automated/cl-generic-tests.el: Try and make sure cl-lib is not
4 required at run-time.
5
62015-01-26 Stefan Monnier <monnier@iro.umontreal.ca>
7
3 * automated/cl-generic-tests.el (cl-generic-test-11-next-method-p): 8 * automated/cl-generic-tests.el (cl-generic-test-11-next-method-p):
4 New test. 9 New test.
5 10
diff --git a/test/automated/cl-generic-tests.el b/test/automated/cl-generic-tests.el
index 5b3a9fdc2a1..5194802fa00 100644
--- a/test/automated/cl-generic-tests.el
+++ b/test/automated/cl-generic-tests.el
@@ -23,8 +23,8 @@
23 23
24;;; Code: 24;;; Code:
25 25
26(require 'ert) 26(eval-when-compile (require 'ert)) ;Don't indirectly require cl-lib at run-time.
27(require 'cl-lib) 27(require 'cl-generic)
28 28
29(cl-defgeneric cl--generic-1 (x y)) 29(cl-defgeneric cl--generic-1 (x y))
30(cl-defgeneric (setf cl--generic-1) (v y z) "My generic doc.") 30(cl-defgeneric (setf cl--generic-1) (v y z) "My generic doc.")