[Emacs-diffs] /srv/bzr/emacs/trunk r104325: * lisp/emacs-lisp/eieio.el (eieio-defgeneric-form-primary-only-one):

[Stefan Monnier]

------------------------------------------------------------
revno: 104325
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2011-05-22 21:39:25 -0300
message:
  * lisp/emacs-lisp/eieio.el (eieio-defgeneric-form-primary-only-one):
  Fix function quoting.  Use backquote better.
modified:
  lisp/ChangeLog
  lisp/emacs-lisp/eieio.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2011-05-22 19:46:47 +0000
+++ b/lisp/ChangeLog    2011-05-23 00:39:25 +0000
@@ -1,3 +1,8 @@
+2011-05-23  Stefan Monnier  <address@hidden>
+
+       * emacs-lisp/eieio.el (eieio-defgeneric-form-primary-only-one):
+       Fix function quoting.  Use backquote better.
+
 2011-05-22  Yuanle Song  <address@hidden>
 
        * nxml/rng-xsd.el (rng-xsd-check-pattern): Use case-sensitive

=== modified file 'lisp/emacs-lisp/eieio.el'
--- a/lisp/emacs-lisp/eieio.el  2011-05-16 19:49:28 +0000
+++ b/lisp/emacs-lisp/eieio.el  2011-05-23 00:39:25 +0000
@@ -1226,29 +1226,28 @@
        (if (not (eieio-object-p (car local-args)))
            ;; Not an object.  Just signal.
            (signal 'no-method-definition
-                    (list ,(list 'quote method) local-args))
+                    (list ',method local-args))
 
          ;; We do have an object.  Make sure it is the right type.
          (if ,(if (eq class eieio-default-superclass)
-                  nil ; default superclass means just an obj.  Already asked.
+                  nil  ; default superclass means just an obj.  Already asked.
                 `(not (child-of-class-p (aref (car local-args) object-class)
-                                        ,(list 'quote class)))
-                )
+                                        ',class)))
 
              ;; If not the right kind of object, call no applicable
              (apply 'no-applicable-method (car local-args)
-                    ,(list 'quote method) local-args)
+                    ',method local-args)
 
            ;; It is ok, do the call.
            ;; Fill in inter-call variables then evaluate the method.
-           (let ((scoped-class ,(list 'quote class))
+           (let ((scoped-class ',class)
                  (eieio-generic-call-next-method-list nil)
                  (eieio-generic-call-key method-primary)
-                 (eieio-generic-call-methodname ,(list 'quote method))
+                 (eieio-generic-call-methodname ',method)
                  (eieio-generic-call-arglst local-args)
                  )
-             (apply ,(list 'quote impl) local-args)
-             ;(,impl local-args)
+             (apply #',impl local-args)
+              ;;(,impl local-args)
              )))))))
 
 (defsubst eieio-defgeneric-reset-generic-form-primary-only-one (method)