From b33005e9bf84c28a0f32571bc643a41afdd0360c Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Fri, 11 Dec 1992 17:16:00 +0000 Subject: [PATCH] Fixed GENTEMP to use its own counter, instead of *gensym-counter*. --- code/symbol.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/code/symbol.lisp b/code/symbol.lisp index e4151ba9c..47021277f 100644 --- a/code/symbol.lisp +++ b/code/symbol.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.12 1992/03/09 08:44:43 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.13 1992/12/11 17:16:00 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -211,6 +211,9 @@ (quick-integer-to-string (if (integerp string) string (incf *gensym-counter*)))))) +(defvar *gentemp-counter* 0) +(declaim (type index *gentemp-counter*)) + (defun gentemp (&optional (prefix t) (package *package*)) "Creates a new symbol interned in package Package with the given Prefix." (loop @@ -218,7 +221,7 @@ (*print-radix* nil) (*print-pretty* nil) (new-pname (format nil "~A~D" - (string prefix) (incf *gensym-counter*)))) + (string prefix) (incf *gentemp-counter*)))) (multiple-value-bind (symbol existsp) (find-symbol new-pname package) (declare (ignore symbol)) -- GitLab