From 110e348a7f081067307543bfe8967a9d135079e7 Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Fri, 5 Jun 1998 02:36:57 +0000
Subject: [PATCH] Remove a redundant fixnum type declaration within gensym
 which limited *gensym-counter* to a fixnum.

---
 code/symbol.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/code/symbol.lisp b/code/symbol.lisp
index dae3615c8..1e9962f9f 100644
--- a/code/symbol.lisp
+++ b/code/symbol.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.27 1998/05/15 14:54:33 pw Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/symbol.lisp,v 1.28 1998/06/05 02:36:57 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -232,7 +232,7 @@
 	  (simple-string (values thing old))
 	  (fixnum (values "G" thing))
 	  (string (values (coerce thing 'simple-string) old)))
-      (declare (simple-string prefix) (fixnum int))
+      (declare (simple-string prefix))
       (make-symbol
        (concatenate 'simple-string prefix
 		    (the simple-string
-- 
GitLab