CVS update by aidan xemacs/lisp ...

[xemacs-cvs at xemacs.org]

  User: aidan   
  Date: 07/12/01 14:40:09

  Modified:    xemacs/lisp ChangeLog bytecomp.el
Log:
Keep around gensym correspondence information through the entirety of a file
to be byte compiled.

Revision  Changes    Path
1.867     +9 -0      XEmacs/xemacs/lisp/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v
retrieving revision 1.866
retrieving revision 1.867
diff -u -p -r1.866 -r1.867
--- ChangeLog	2007/11/29 13:38:09	1.866
+++ ChangeLog	2007/12/01 13:40:06	1.867
@@ -1,3 +1,12 @@
+2007-12-01  Aidan Kehoe  <kehoea at parhasard.net>
+
+	* bytecomp.el (byte-compile-output-file-form):
+	Bind print-gensym to a cons, to tell the Lisp printer not to clear
+	print-gensym-alist on exit from #'print. This is appropriate
+	because #'byte-compile-output-file-form may be called multiple
+	times for a given output file, and re-using the
+	#1=#:... placeholders in that context is inappropriate. 
+
 2007-11-29  Aidan Kehoe  <kehoea at parhasard.net>
 
 	* mule/mule-coding.el (make-8-bit-generate-helper):



1.22      +1 -1      XEmacs/xemacs/lisp/bytecomp.el

Index: bytecomp.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/bytecomp.el,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -p -r1.21 -r1.22
--- bytecomp.el	2007/11/27 22:15:34	1.21
+++ bytecomp.el	2007/12/01 13:40:07	1.22
@@ -1888,7 +1888,7 @@ With argument, insert value in current b
 	  (print-readably t)	; print #[] for bytecode, 'x for (quote x)
 	  (print-gensym (if (and byte-compile-print-gensym
 				 (not byte-compile-emacs19-compatibility))
-			    t nil)))
+			    '(t) nil)))
       (princ "\n" byte-compile-outbuffer)
       (prin1 form byte-compile-outbuffer)
       nil)))