[O] (Emacs 23/24 binary compatibility): defstruct, setf

[Jambunathan K]

1. Compile ox.el (new-to-be-merged export library) with Emacs 23.2.1
   (stock Debian binary)

2. Load the ox.elc file on Emacs Bzr trunk.

3. setf on a defstruct field breaks as seen below.

Modify (1) so that .elc files are generated against Emacs Bzr trunk.
Note that setf succeeds.

----------------------------------------------------------------

I think existing *.elc files compiled against Emacs-23.2.1 should load
fine on new Emacs versions.


----------------------------------------------------------------

The struct is as below defined in ox.el

    (defstruct (org-export-backend
                (:constructor org-export-create-backend))
      name parent transcoders options filters blocks menu)


ox-jabref.el is loaded uncompiled.

----------------------------------------------------------------


Debugger entered--Lisp error: (error "(org-export-backend-transcoders 
enhanced-backend) is not a valid place expression")
  signal(error ("(org-export-backend-transcoders enhanced-backend) is not a 
valid place expression"))
  error("%S is not a valid place expression" (org-export-backend-transcoders 
enhanced-backend))
  gv-get((org-export-backend-transcoders enhanced-backend) #[514 
"\211\300!\207" [enhanced-transcoders] 4 "\n\n(fn GETTER SETTER)"])
  #[128 
"\211\203&\211\211AA\262\204&\211A\262@@\300\301\302\303\304\305!\306\"\307\310%\"address@hidden@address@hidden'\313\237B\207"
 [gv-get make-byte-code 514 "\211\300!\207" vconcat vector [] 4 "\n\n(fn GETTER 
SETTER)" nil setf progn] 11 
("/home/kjambunathan/src/emacs/trunk/lisp/emacs-lisp/gv.elc" . 
6424)]((org-export-backend-transcoders enhanced-backend) enhanced-transcoders)
  (setf (org-export-backend-transcoders enhanced-backend) enhanced-transcoders)
  (let* ((enhanced-backend (copy-org-export-backend 
org-jabref--stock-odt-backend)) (stock-transcoders 
(org-export-backend-transcoders org-jabref--stock-odt-backend)) 
(enhanced-transcoders (append (quote ((keyword . org-jabref-keyword) 
(citation-reference . org-jabref-odt-citation-reference/text))) 
stock-transcoders))) (setf (org-export-backend-transcoders enhanced-backend) 
enhanced-transcoders) (let ((menu (org-export-backend-menu enhanced-backend))) 
(setf (cadr menu) (concat (cadr menu) " (With Jabref Processing)"))) 
(org-export-register-backend enhanced-backend) enhanced-backend)
  (defvar org-jabref--enhanced-odt-backend (let* ((enhanced-backend 
(copy-org-export-backend org-jabref--stock-odt-backend)) (stock-transcoders 
(org-export-backend-transcoders org-jabref--stock-odt-backend)) 
(enhanced-transcoders (append (quote ((keyword . org-jabref-keyword) 
(citation-reference . org-jabref-odt-citation-reference/text))) 
stock-transcoders))) (setf (org-export-backend-transcoders enhanced-backend) 
enhanced-transcoders) (let ((menu (org-export-backend-menu enhanced-backend))) 
(setf (cadr menu) (concat (cadr menu) " (With Jabref Processing)"))) 
(org-export-register-backend enhanced-backend) enhanced-backend))
  eval-buffer(#<buffer  *load*> nil 
"/home/kjambunathan/src/org-mode/contrib/lisp/ox-jabref.el" nil t)  ; Reading 
at buffer position 6948
  
load-with-code-conversion("/home/kjambunathan/src/org-mode/contrib/lisp/ox-jabref.el"
 "/home/kjambunathan/src/org-mode/contrib/lisp/ox-jabref.el" nil nil)
  load("ox-jabref.el")
  load-library("ox-jabref.el")
  call-interactively(load-library record nil)
  command-execute(load-library record)
  execute-extended-command(nil "load-library")
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)