Anonymous avatar Anonymous committed 7e9aae9

Transform #'values calls to #'list calls under 21.4, ilisp-snd.el

Comments (0)

Files changed (2)

+2009-08-13  Aidan Kehoe  <kehoea@parhasard.net>
+
+	* ilisp-snd.el:
+	Transform #'values calls to #'list calls at compile time if the
+	current XEmacs doesn't support true multiple values.
+
 2006-05-17  Norbert Koch  <viteno@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.34 released.
 ;;;
 ;;; 19990824 Marco Antoniotti
 
+;; 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))))
+
 (defvar *ILISP-default-package* "COMMON-LISP-USER")
 
 (defun ilisp-add-set-package-hook ()	; Was: add-set-package-hook
Tip: Filter by directory path e.g. /media app.js to search for public/media/app.js.
Tip: Use camelCasing e.g. ProjME to search for ProjectModifiedEvent.java.
Tip: Filter by extension type e.g. /repo .js to search for all .js files in the /repo directory.
Tip: Separate your search with spaces e.g. /ssh pom.xml to search for src/ssh/pom.xml.
Tip: Use ↑ and ↓ arrow keys to navigate and return to view the file.
Tip: You can also navigate files with Ctrl+j (next) and Ctrl+k (previous) and view the file with Ctrl+o.
Tip: You can also navigate files with Alt+j (next) and Alt+k (previous) and view the file with Alt+o.