mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-07 15:00:34 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/eieio-core.el: Provide support for cl-generic.

Browse source 
(eieio--generic-tagcode): New function.
(cl-generic-tagcode-function): Use it.
(eieio--generic-tag-types): New function.
(cl-generic-tag-types-function): Use it.
(eieio-object-p): Tighten up the test.

* lisp/emacs-lisp/cl-generic.el (cl-generic-define-method): Fix paren typo.

* test/automated/eieio-test-methodinvoke.el (eieio-test-method-store): Add
keysym arg instead of relying on internal var eieio--generic-call-key.
Update all callers.
(eieio-test-cl-generic-1): New tests.
This commit is contained in:
Stefan Monnier 2015-01-15 00:19:44 -05:00
parent 9def17e92b
commit 483c98a00d
5 changed files with 91 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/cl-generic.el
View file

@ -305,10 +305,10 @@ which case this method will be invoked when the argument is `eql' to VAL.
(setq i (1+ i))))
(if me (setcdr me (cons uses-cnm function))
(setf (cl--generic-method-table generic)
(cons `(,key ,uses-cnm . ,function) mt))
;; For aliases, cl--generic-name gives us the actual name.
(defalias (cl--generic-name generic)
(cl--generic-make-function generic)))))
(cons `(,key ,uses-cnm . ,function) mt)))
;; For aliases, cl--generic-name gives us the actual name.
(defalias (cl--generic-name generic)
(cl--generic-make-function generic))))
(defmacro cl--generic-with-memoization (place &rest code)
(declare (indent 1) (debug t))