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