CVS update by aidan packages/xemacs-packages/build ...

  User: aidan   
  Date: 09/10/01 20:39:57

  Modified:    packages/xemacs-packages/build ChangeLog build-report.el
Log:
Don't call #'values from compiled code from 21.4, build-repor

Revision  Changes    Path
1.69      +10 -0     XEmacs/packages/xemacs-packages/build/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/build/ChangeLog,v
retrieving revision 1.68
retrieving revision 1.69
diff -u -p -r1.68 -r1.69
--- ChangeLog	2003/10/31 16:39:58	1.68
+++ ChangeLog	2009/10/01 18:39:56	1.69
@@ -1,3 +1,13 @@
+2009-10-01  Aidan Kehoe  <[email protected]>
+
+	* build-report.el: 
+	Have compiled 21.4 code also work on XEmacs binaries with real
+	support for multiple values, by avoiding runtime calls to
+	#'values.
+	Not waiting for approval from Adrian, as he hasn't been around
+	recently, and the code worked fine in the other packages it has
+	been applied to.
+
 2003-10-31  Norbert Koch  <[email protected]>
 
 	* Makefile (VERSION): XEmacs package 1.14 released.



1.50      +6 -2      XEmacs/packages/xemacs-packages/build/build-report.el

Index: build-report.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/packages/xemacs-packages/build/build-report.el,v
retrieving revision 1.49
retrieving revision 1.50
diff -u -p -r1.49 -r1.50
--- build-report.el	2003/10/18 19:14:10	1.49
+++ build-report.el	2009/10/01 18:39:57	1.50
@@ -3,8 +3,8 @@
 ;; Copyright (C) 1997-2003 Adrian Aichner
 
 ;; Author: Adrian Aichner <[email protected]>
-;; Date: $Date: 2003/10/18 19:14:10 $
-;; Version: $Revision: 1.49 $
+;; Date: $Date: 2009/10/01 18:39:57 $
+;; Version: $Revision: 1.50 $
 ;; Keywords: internal
 
 ;; This file is part of XEmacs.
@@ -51,6 +51,10 @@
 (require 'custom)
 (require 'cl)
 (provide 'build-report)
+
+(eval-when-compile (when (eq 'list (symbol-function 'values))
+                     (define-compiler-macro values (&rest args)
+                       `(list ,@args))))
 
 ;;; Constant definitions used internally by `build-report'.  These are not
 ;;; anticipated to be changed by users of `build-report'.