From 333204a9ae342631f0e301e2db74e61076b0cf6b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Wed, 25 Nov 1992 10:32:29 +0000
Subject: [PATCH] Bind *gensym-counter* so that it doesn't get side effected.

---
 compiler/eval-comp.lisp |  5 +++--
 compiler/main.lisp      | 12 +++++++-----
 2 files changed, 10 insertions(+), 7 deletions(-)

diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp
index 7b7459011..e7c505c80 100644
--- a/compiler/eval-comp.lisp
+++ b/compiler/eval-comp.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.21 1992/09/16 15:50:19 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.22 1992/11/25 10:32:12 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -74,7 +74,8 @@
 	   (*compiler-warning-count* 0)
 	   (*compiler-note-count* 0)
 	   (*source-info* (make-lisp-source-info form))
-	   (*converting-for-interpreter* t))
+	   (*converting-for-interpreter* t)
+	   (*gensym-counter* 0))
 
       (clear-stuff nil)
       (find-source-paths form 0)
diff --git a/compiler/main.lisp b/compiler/main.lisp
index e6cd78407..17e42f076 100644
--- a/compiler/main.lisp
+++ b/compiler/main.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.77 1992/11/18 23:33:54 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.78 1992/11/25 10:32:29 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1392,7 +1392,6 @@
 (defun sub-compile-file (info &optional d-s-info)
   (declare (type source-info info))
   (with-ir1-namespace
-    (clear-stuff)
     (let* ((start-errors *compiler-error-count*)
 	   (start-warnings *compiler-warning-count*)
 	   (start-notes *compiler-note-count*)
@@ -1424,7 +1423,9 @@
 	   (*last-message-count* 0)
 	   (*info-environment*
 	    (or (backend-info-environment *backend*)
-		*info-environment*)))
+		*info-environment*))
+	   (*gensym-counter* 0))
+      (clear-stuff)
       (with-compilation-unit ()
 	(loop
 	  (multiple-value-bind (form tlf eof-p)
@@ -1729,7 +1730,6 @@
   returned."
   (with-compilation-unit ()
     (with-ir1-namespace
-      (clear-stuff)
       (let* ((*backend* *native-backend*)
 	     (*info-environment*
 	      (or (backend-info-environment *backend*)
@@ -1757,7 +1757,9 @@
 	     (*last-format-string* nil)
 	     (*last-format-args* nil)
 	     (*last-message-count* 0)
-	     (*compile-object* (make-core-object)))
+	     (*compile-object* (make-core-object))
+	     (*gensym-counter* 0))
+	(clear-stuff)
 	(find-source-paths form 0)
 	(let ((lambda (ir1-top-level form '(original-source-start 0 0) t)))
 	  
-- 
GitLab