diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-01-17 22:50:50 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-01-17 22:50:50 -0500 |
| commit | 909126de0f6d2e53aec44c97abccee5b32b25f28 (patch) | |
| tree | 1cd37b86acf2b8b9b1476e9f7971e3644db2c74f /lisp/emacs-lisp/eieio.el | |
| parent | 3065125d314a4cb97aa7982e2d06f48759865af7 (diff) | |
| download | emacs-909126de0f6d2e53aec44c97abccee5b32b25f28.tar.gz emacs-909126de0f6d2e53aec44c97abccee5b32b25f28.tar.bz2 emacs-909126de0f6d2e53aec44c97abccee5b32b25f28.zip | |
* lisp/emacs-lisp/cl-generic.el: Add support for cl-next-method-p.
(cl-defmethod): Add edebug spec.
(cl--generic-build-combined-method): Fix call to
cl-no-applicable-method.
(cl--generic-nnm-sample, cl--generic-cnm-sample): New constant.
(cl--generic-isnot-nnm-p): New function.
(cl--generic-lambda): Use it to add support for cl-next-method-p.
(cl-no-next-method, cl-no-applicable-method): Simplify arg list.
(cl-next-method-p): New function.
Diffstat (limited to 'lisp/emacs-lisp/eieio.el')
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index cda0c97a64f..c5597b83170 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -36,12 +36,12 @@ ;; Retrieved from: ;; http://192.220.96.201/dylan/linearization-oopsla96.html -;; There is funny stuff going on with typep and deftype. This -;; is the only way I seem to be able to make this stuff load properly. - ;; @TODO - fix :initform to be a form, not a quoted value ;; @TODO - Prefix non-clos functions with `eieio-'. +;; TODO: better integrate CL's defstructs and classes. E.g. make it possible +;; to create a new class that inherits from a struct. + ;;; Code: (defvar eieio-version "1.4" @@ -924,7 +924,7 @@ variable PRINT-FUNCTION. Optional argument NOESCAPE is passed to ;;; Start of automatically extracted autoloads. -;;;### (autoloads nil "eieio-custom" "eieio-custom.el" "9a908efef1720439feb6323c1dd01770") +;;;### (autoloads nil "eieio-custom" "eieio-custom.el" "6baa78cfc590cc0422e12b7eb55abf24") ;;; Generated autoloads from eieio-custom.el (autoload 'customize-object "eieio-custom" "\ |