From mboxrd@z Thu Jan 1 00:00:00 1970 From: Jambunathan K Subject: (Emacs 23/24 binary compatibility): defstruct, setf Date: Tue, 03 Sep 2013 14:12:48 +0530 Message-ID: <87wqmyi9dj.fsf@gmail.com> Mime-Version: 1.0 Content-Type: text/plain Return-path: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org Sender: emacs-devel-bounces+ged-emacs-devel=m.gmane.org@gnu.org To: emacs-devel@gnu.org Cc: emacs-orgmode@gnu.org, Nicolas Goaziou List-Id: emacs-orgmode.gnu.org 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%\"\207\311\203@\312\211A\262@\211A\262@EB\262\202'\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(# 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)