1 new commit in XEmacs:
https://bitbucket.org/xemacs/xemacs/changeset/0df4d95bd98a/
changeset: 0df4d95bd98a
user: kehoea
date: 2012-05-12 16:03:24
summary: Fetch its bytecode before unfolding a compiled function, byte-optimize.el
lisp/ChangeLog addition:
2012-05-12 Aidan Kehoe <kehoea(a)parhasard.net>
* byte-optimize.el (byte-compile-unfold-lambda):
Fetch the bytecode before unfolding a compiled function, its body
may have been compiled lazily thanks to
byte-compile-dynamic. Thank you Mats Lidell and the package
smoketest!
affected #: 2 files
diff -r bed39edf91ba137860fa91f24628ff7bdecb43a1 -r
0df4d95bd98a41c9a7826a307427e6f6dbcb9842 lisp/ChangeLog
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2012-05-12 Aidan Kehoe <kehoea(a)parhasard.net>
+
+ * byte-optimize.el (byte-compile-unfold-lambda):
+ Fetch the bytecode before unfolding a compiled function, its body
+ may have been compiled lazily thanks to
+ byte-compile-dynamic. Thank you Mats Lidell and the package
+ smoketest!
+
2012-05-10 Aidan Kehoe <kehoea(a)parhasard.net>
* mule/mule-category.el (word-combining-categories):
diff -r bed39edf91ba137860fa91f24628ff7bdecb43a1 -r
0df4d95bd98a41c9a7826a307427e6f6dbcb9842 lisp/byte-optimize.el
--- a/lisp/byte-optimize.el
+++ b/lisp/byte-optimize.el
@@ -296,11 +296,12 @@
(let ((lambda (car form))
(values (cdr form)))
(if (compiled-function-p lambda)
- (setq lambda (list 'lambda (compiled-function-arglist lambda)
- (list 'byte-code
- (compiled-function-instructions lambda)
- (compiled-function-constants lambda)
- (compiled-function-stack-depth lambda)))))
+ (setq lambda (fetch-bytecode lambda)
+ lambda (list 'lambda (compiled-function-arglist lambda)
+ (list 'byte-code
+ (compiled-function-instructions lambda)
+ (compiled-function-constants lambda)
+ (compiled-function-stack-depth lambda)))))
(let ((arglist (nth 1 lambda))
(body (cdr (cdr lambda)))
optionalp restp
Repository URL:
https://bitbucket.org/xemacs/xemacs/
--
This is a commit notification from
bitbucket.org. You are receiving
this because you have the service enabled, addressing the recipient of
this email.
_______________________________________________
XEmacs-Patches mailing list
XEmacs-Patches(a)xemacs.org
http://lists.xemacs.org/mailman/listinfo/xemacs-patches