# HG changeset patch
# User aidan
# Date 1196516407 0
# Node ID 27150c937a22f44c222484583c37ed3cf3f71a9e
# Parent  958a8f437147cff0a2569546e1ef75d95a4a58ab
[xemacs-hg @ 2007-12-01 13:40:06 by aidan]
Keep around gensym correspondence information through the entirety of a file
to be byte compiled.

diff -r 958a8f437147 -r 27150c937a22 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Nov 30 22:51:05 2007 +0000
+++ b/lisp/ChangeLog	Sat Dec 01 13:40:07 2007 +0000
@@ -1,3 +1,12 @@
+2007-12-01  Aidan Kehoe  <kehoea@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@parhasard.net>
 
 	* mule/mule-coding.el (make-8-bit-generate-helper):
diff -r 958a8f437147 -r 27150c937a22 lisp/bytecomp.el
--- a/lisp/bytecomp.el	Fri Nov 30 22:51:05 2007 +0000
+++ b/lisp/bytecomp.el	Sat Dec 01 13:40:07 2007 +0000
@@ -1888,7 +1888,7 @@
 	  (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)))