Commits

Anonymous committed dc879e6

Transform #'values calls to #'list calls under 21.4, overlay.el

Comments (0)

Files changed (2)

+2009-08-13  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* overlay.el:
+	Transform #'values calls to #'list calls under 21.4, overlay.el
+
 2009-07-30  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.18 released.
 
 ;;; Code:
 
+;; Have compiled 21.4 code also work on XEmacs binaries with real support
+;; for multiple values, by avoiding runtime calls to #'values: 
+(eval-when-compile (when (eq 'list (symbol-function 'values))
+                     (define-compiler-macro values (&rest args)
+                       `(list ,@args))))
+
 (defun overlayp (object)
   "Return t if OBJECT is an overlay."
   (and (extentp object)